From: Simon Marlow Date: Wed, 16 Apr 2008 21:56:49 +0000 (+0000) Subject: small debug output improvements X-Git-Tag: Before_cabalised-GHC~224 X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7becf23863ae4503003f2ce59e79dd35d755ee00 small debug output improvements --- 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 diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index b400744..98e6f8a 100644 --- a/rts/sm/GCUtils.c +++ b/rts/sm/GCUtils.c @@ -89,7 +89,7 @@ push_todo_block (bdescr *bd, step *stp) stp->todos_last = bd; } stp->n_todos++; - trace(TRACE_gc, "step %d, n_todos: %d", stp->abs_no, stp->n_todos); + trace(TRACE_gc|DEBUG_gc, "step %d, n_todos: %d", stp->abs_no, stp->n_todos); RELEASE_SPIN_LOCK(&stp->sync_todo); }