From: simonmar <unknown>
Date: Tue, 2 Aug 2005 14:58:40 +0000 (+0000)
Subject: [project @ 2005-08-02 14:58:40 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~271
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5a044ccd1e47334a19cfcfd4dd2939fa911e0072;p=ghc-hetmet.git

[project @ 2005-08-02 14:58:40 by simonmar]
Fix up GC debugging output
---

diff --git a/ghc/rts/Stats.c b/ghc/rts/Stats.c
index a52af36..a4b274e 100644
--- a/ghc/rts/Stats.c
+++ b/ghc/rts/Stats.c
@@ -781,7 +781,9 @@ statDescribeGens(void)
   bdescr *bd;
   step *step;
 
-  debugBelch("     Gen    Steps      Max   Mutable  Step   Blocks     Live    Large\n                    Blocks  Closures  Closures                          Objects\n");
+  debugBelch(
+"     Gen    Steps      Max   Mutable  Step   Blocks     Live    Large\n"
+"                     Blocks Closures                          Objects\n");
 
   mut = 0;
   for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
@@ -802,7 +804,7 @@ statDescribeGens(void)
 	live += (bd->free - bd->start) * sizeof(W_);
       }
       if (s != 0) {
-	debugBelch("%46s","");
+	debugBelch("%36s","");
       }
       debugBelch("%6d %8d %8d %8d\n", s, step->n_blocks,
 	      live, lge);