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 /rts/eventlog/EventLog.h | |
| 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 'rts/eventlog/EventLog.h')
| -rw-r--r-- | rts/eventlog/EventLog.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h index 602ac2c87b..431292732f 100644 --- a/rts/eventlog/EventLog.h +++ b/rts/eventlog/EventLog.h @@ -69,6 +69,13 @@ void postCapsetVecEvent (EventTypeNum tag, int argc, char *msg[]); +/* + * Post an event with several counters relating to `par` sparks. + */ +void postSparkCountersEvent (Capability *cap, + SparkCounters counters, + StgWord remaining); + #else /* !TRACING */ INLINE_HEADER void postSchedEvent (Capability *cap STG_UNUSED, |