diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-04-15 16:42:56 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-10-22 12:17:00 -0400 |
| commit | 6f1731812331d4ddb4326fdfcefa095b867547e9 (patch) | |
| tree | bc1fb4a5d0b41b98e50e38dcfea0c20748439ce6 /includes/rts | |
| parent | 0d31819ed27f6763f5d253df0c1226d4c844e802 (diff) | |
| download | haskell-6f1731812331d4ddb4326fdfcefa095b867547e9.tar.gz | |
NonmovingCensus: Emit samples to eventlogwip/gc/instrumentation
Diffstat (limited to 'includes/rts')
| -rw-r--r-- | includes/rts/EventLogFormat.h | 3 | ||||
| -rw-r--r-- | includes/rts/Flags.h | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/includes/rts/EventLogFormat.h b/includes/rts/EventLogFormat.h index 46d001a0b2..0ffa77a2df 100644 --- a/includes/rts/EventLogFormat.h +++ b/includes/rts/EventLogFormat.h @@ -190,13 +190,14 @@ #define EVENT_CONC_SWEEP_BEGIN 204 #define EVENT_CONC_SWEEP_END 205 #define EVENT_CONC_UPD_REM_SET_FLUSH 206 +#define EVENT_NONMOVING_HEAP_CENSUS 207 /* * The highest event code +1 that ghc itself emits. Note that some event * ranges higher than this are reserved but not currently emitted by ghc. * This must match the size of the EventDesc[] array in EventLog.c */ -#define NUM_GHC_EVENT_TAGS 207 +#define NUM_GHC_EVENT_TAGS 208 #if 0 /* DEPRECATED EVENTS: */ /* we don't actually need to record the thread, it's implicit */ diff --git a/includes/rts/Flags.h b/includes/rts/Flags.h index 4499af9da6..9a039fd95c 100644 --- a/includes/rts/Flags.h +++ b/includes/rts/Flags.h @@ -170,6 +170,7 @@ typedef struct _TRACE_FLAGS { bool timestamp; /* show timestamp in stderr output */ bool scheduler; /* trace scheduler events */ bool gc; /* trace GC events */ + bool nonmoving_gc; /* trace nonmoving GC events */ bool sparks_sampled; /* trace spark events by a sampled method */ bool sparks_full; /* trace spark events 100% accurately */ bool user; /* trace user events (emitted from Haskell code) */ |