From: simonm <unknown>
Date: Wed, 3 Feb 1999 16:42:18 +0000 (+0000)
Subject: [project @ 1999-02-03 16:42:18 by simonm]
X-Git-Tag: Approximately_9120_patches~6624
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=46dfa5302cc36d7516023e056dd25af1fe92e62d;p=ghc-hetmet.git

[project @ 1999-02-03 16:42:18 by simonm]
Fix GC stats printing.
---

diff --git a/ghc/rts/Stats.c b/ghc/rts/Stats.c
index 91d3eba..061bbdd 100644
--- a/ghc/rts/Stats.c
+++ b/ghc/rts/Stats.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stats.c,v 1.4 1999/02/02 14:21:32 simonm Exp $
+ * $Id: Stats.c,v 1.5 1999/02/03 16:42:18 simonm Exp $
  *
  * Statistics and timing-related functions.
  *
@@ -410,7 +410,7 @@ stat_describe_gens(void)
     for (m = generations[g].mut_once_list, mut_once = 0; m != END_MUT_LIST; 
 	 m = m->mut_link) 
       mut_once++;
-    fprintf(stderr, "%8d %8d %8d %9d %8d", g, generations[g].n_steps,
+    fprintf(stderr, "%8d %8d %8d %9d %9d", g, generations[g].n_steps,
 	    generations[g].max_blocks, mut, mut_once);
 
     for (s = 0; s < generations[g].n_steps; s++) {
@@ -422,7 +422,7 @@ stat_describe_gens(void)
 	live += (bd->free - bd->start) * sizeof(W_);
       }
       if (s != 0) {
-	fprintf(stderr,"%36s","");
+	fprintf(stderr,"%46s","");
       }
       fprintf(stderr,"%6d %8d %8d %8d\n", s, step->n_blocks,
 	      live, lge);