diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2011-06-06 10:39:16 +0100 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2011-07-18 16:31:14 +0100 |
| commit | d77df1caad3a5f833aac9275938a0675e1ee6aac (patch) | |
| tree | 611e7bb5cb902a0bc0987f541627d565c4563c0a /includes | |
| parent | 5d091088ce94be4c389fa669911d0e842bd08952 (diff) | |
| download | haskell-d77df1caad3a5f833aac9275938a0675e1ee6aac.tar.gz | |
Add spark counter tracing
A new eventlog event containing 7 spark counters/statistics: sparks
created, dud, overflowed, converted, GC'd, fizzled and remaining.
These are maintained and logged separately for each capability.
We log them at startup, on each GC (minor and major) and on shutdown.
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/EventLogFormat.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/includes/rts/EventLogFormat.h b/includes/rts/EventLogFormat.h index 1bbb2f0074..1ea8d67e73 100644 --- a/includes/rts/EventLogFormat.h +++ b/includes/rts/EventLogFormat.h @@ -133,6 +133,7 @@ #define EVENT_PROGRAM_ENV 31 /* (capset, environment_vector) */ #define EVENT_OSPROCESS_PID 32 /* (capset, pid) */ #define EVENT_OSPROCESS_PPID 33 /* (capset, parent_pid) */ +#define EVENT_SPARK_COUNTERS 34 /* (crt,dud,ovf,cnv,fiz,gcd,rem) */ /* Range 34 - 59 is available for new events */ @@ -146,7 +147,7 @@ * 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_EVENT_TAGS 34 +#define NUM_EVENT_TAGS 35 #if 0 /* DEPRECATED EVENTS: */ /* ghc changed how it handles sparks so these are no longer applicable */ |