From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 23:27:39 +0000 (+0000)
Subject: debug output: show mem in use
X-Git-Tag: Before_cabalised-GHC~203
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4ba3cb054c3f069520f8db26591eae27560638c9

debug output: show mem in use
---

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index cf6f807..b381e56 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) {