X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=94da824184f4d113f0a98c9695a63ee59e0cba1b;hb=7becf23863ae4503003f2ce59e79dd35d755ee00;hp=cd09199ad3a930091be38b70207fcff8cce865c8;hpb=05be2e819c95e3a1f2a0a8adccdd90aacc90ecba;p=ghc-hetmet.git

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index cd09199..94da824 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -248,8 +248,8 @@ GarbageCollect ( rtsBool force_major_gc )
   } else {
       n_gc_threads = RtsFlags.ParFlags.gcThreads;
   }
-  trace(TRACE_gc|DEBUG_gc, "GC: %dk to collect, using %d thread(s)",
-        n * (BLOCK_SIZE / 1024), n_gc_threads);
+  trace(TRACE_gc|DEBUG_gc, "GC (gen %d): %dKB to collect, using %d thread(s)",
+        N, n * (BLOCK_SIZE / 1024), n_gc_threads);
 #else
   n_gc_threads = 1;
 #endif
@@ -661,7 +661,7 @@ GarbageCollect ( rtsBool force_major_gc )
   IF_DEBUG(sanity, checkSanity());
 
   // extra GC trace info 
-  if (traceClass(TRACE_gc)) statDescribeGens();
+  if (traceClass(TRACE_gc|DEBUG_gc)) statDescribeGens();
 
 #ifdef DEBUG
   // symbol-table based profiling