Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f0899173ec6f3bb16dd66bb6d7720d32d8a3bd06

>---------------------------------------------------------------

commit f0899173ec6f3bb16dd66bb6d7720d32d8a3bd06
Author: Simon Marlow <marlo...@gmail.com>
Date:   Wed Apr 11 11:38:56 2012 +0100

    Turn on TRACE_gc with +RTS -Ds (this regressed at some point)

>---------------------------------------------------------------

 rts/Trace.c |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/rts/Trace.c b/rts/Trace.c
index de33563..e5a4beb 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;
     }



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to