[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 (file)
--- 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);