From 5a044ccd1e47334a19cfcfd4dd2939fa911e0072 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 2 Aug 2005 14:58:40 +0000
Subject: [PATCH] [project @ 2005-08-02 14:58:40 by simonmar] Fix up GC
 debugging output

---
 ghc/rts/Stats.c |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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);
-- 
1.7.10.4