diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:27:39 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:27:39 +0000 |
| commit | 4ba3cb054c3f069520f8db26591eae27560638c9 (patch) | |
| tree | bdc82e02f172acb663d6ae277645291d3772a471 /rts/sm/GC.c | |
| parent | d564f41560f25c15cd971f167a3c2091f7a05e3f (diff) | |
| download | haskell-4ba3cb054c3f069520f8db26591eae27560638c9.tar.gz | |
debug output: show mem in use
Diffstat (limited to 'rts/sm/GC.c')
| -rw-r--r-- | rts/sm/GC.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index cf6f80715c..b381e56cce 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -253,8 +253,8 @@ GarbageCollect ( rtsBool force_major_gc ) #else n_gc_threads = 1; #endif - trace(TRACE_gc|DEBUG_gc, "GC (gen %d): %dKB to collect, using %d thread(s)", - N, n * (BLOCK_SIZE / 1024), n_gc_threads); + trace(TRACE_gc|DEBUG_gc, "GC (gen %d): %d KB to collect, %ld MB in use, using %d thread(s)", + N, n * (BLOCK_SIZE / 1024), mblocks_allocated, n_gc_threads); #ifdef RTS_GTK_FRONTPANEL if (RtsFlags.GcFlags.frontpanel) { |