diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-10-15 10:02:12 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-10-15 10:02:12 +0000 |
| commit | 1f56fae4a10f7fb56b8fbab5ab9ad95add1ed1dd (patch) | |
| tree | 03ed9129c79b2816dc8f89de56c5711a640c6139 /rts/Trace.c | |
| parent | d46df548da44cff511cd0d656a1ec92c4551d653 (diff) | |
| download | haskell-1f56fae4a10f7fb56b8fbab5ab9ad95add1ed1dd.tar.gz | |
Add events to show when GC threads are idle/working
Diffstat (limited to 'rts/Trace.c')
| -rw-r--r-- | rts/Trace.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index 81a2eb2c24..7cfb78cc9a 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -193,6 +193,15 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag, case EVENT_GC_END: // (cap) debugBelch("cap %d: finished GC\n", cap->no); break; + case EVENT_GC_IDLE: // (cap) + debugBelch("cap %d: GC idle\n", cap->no); + break; + case EVENT_GC_WORK: // (cap) + debugBelch("cap %d: GC working\n", cap->no); + break; + case EVENT_GC_DONE: // (cap) + debugBelch("cap %d: GC done\n", cap->no); + break; default: debugBelch("cap %2d: thread %lu: event %d\n\n", cap->no, (lnat)tso->id, tag); @@ -216,6 +225,18 @@ void traceSchedEvent_ (Capability *cap, EventTypeNum tag, } } +void traceEvent_ (Capability *cap, EventTypeNum tag) +{ +#ifdef DEBUG + if (RtsFlags.TraceFlags.tracing == TRACE_STDERR) { + traceSchedEvent_stderr(cap, tag, 0, 0); + } else +#endif + { + postEvent(cap,tag); + } +} + #ifdef DEBUG static void traceCap_stderr(Capability *cap, char *msg, va_list ap) { |