diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-11-18 12:22:02 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-18 12:53:50 +0100 |
| commit | 6b3d5b5990b9b306e13575e60d7e1c8ce264b0ef (patch) | |
| tree | 3d7ac58f233767e78de8eec6bde7f81ec46f6485 /includes | |
| parent | f9e17fd70d466fc00825f7324c944609f5c09251 (diff) | |
| download | haskell-6b3d5b5990b9b306e13575e60d7e1c8ce264b0ef.tar.gz | |
rts: Kill PAPI support
This hasn't been used for a very long time and will soon be superceded
by perf_events support.
Test Plan: validate
Reviewers: austin, simonmar
Reviewed By: austin, simonmar
Subscribers: thomie, erikd
Differential Revision: https://phabricator.haskell.org/D1493
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/Flags.h | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/includes/rts/Flags.h b/includes/rts/Flags.h index 1440b14a37..878e0f111a 100644 --- a/includes/rts/Flags.h +++ b/includes/rts/Flags.h @@ -213,29 +213,6 @@ typedef struct _TICKY_FLAGS { FILE *tickyFile; } TICKY_FLAGS; -#ifdef USE_PAPI -#define MAX_PAPI_USER_EVENTS 8 - -/* See Note [Synchronization of flags and base APIs] */ -typedef struct _PAPI_FLAGS { - nat eventType; /* The type of events to count */ - nat numUserEvents; - char * userEvents[MAX_PAPI_USER_EVENTS]; - /* Allow user to enter either PAPI preset or native events */ - nat userEventsKind[MAX_PAPI_USER_EVENTS]; -} PAPI_FLAGS; - -#define PAPI_FLAG_CACHE_L1 1 -#define PAPI_FLAG_CACHE_L2 2 -#define PAPI_FLAG_BRANCH 3 -#define PAPI_FLAG_STALLS 4 -#define PAPI_FLAG_CB_EVENTS 5 -#define PAPI_USER_EVENTS 6 -#define PAPI_PRESET_EVENT_KIND 0 -#define PAPI_NATIVE_EVENT_KIND 1 - -#endif - /* Put them together: */ /* See Note [Synchronization of flags and base APIs] */ @@ -253,9 +230,6 @@ typedef struct _RTS_FLAGS { #if defined(THREADED_RTS) PAR_FLAGS ParFlags; #endif -#ifdef USE_PAPI - PAPI_FLAGS PapiFlags; -#endif } RTS_FLAGS; #ifdef COMPILING_RTS_MAIN |