diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-04-11 11:38:56 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-04-11 14:46:33 +0100 |
| commit | f0899173ec6f3bb16dd66bb6d7720d32d8a3bd06 (patch) | |
| tree | f1b62355acf6827dbac122f79ea9ddee0d427525 /rts/Trace.c | |
| parent | 9d26519c20194abc3832578a55fbe31327519eeb (diff) | |
| download | haskell-f0899173ec6f3bb16dd66bb6d7720d32d8a3bd06.tar.gz | |
Turn on TRACE_gc with +RTS -Ds (this regressed at some point)
Diffstat (limited to 'rts/Trace.c')
| -rw-r--r-- | rts/Trace.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index de335631b0..e5a4beba61 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -97,7 +97,8 @@ void initTracing (void) // -Dg turns on gc tracing too TRACE_gc = RtsFlags.TraceFlags.gc || - RtsFlags.DebugFlags.gc; + RtsFlags.DebugFlags.gc || + RtsFlags.DebugFlags.scheduler; if (TRACE_gc && RtsFlags.GcFlags.giveStats == NO_GC_STATS) { RtsFlags.GcFlags.giveStats = COLLECT_GC_STATS; } |