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/Schedule.c | |
| 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/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 222220053a..2a2cc22a66 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1449,6 +1449,8 @@ delete_threads_and_gc: #endif traceEventGcEnd(cap); + traceSparkCounters(cap); + if (recent_activity == ACTIVITY_INACTIVE && force_major) { // We are doing a GC because the system has been idle for a |