From: simonm <unknown>
Date: Tue, 9 Feb 1999 12:50:38 +0000 (+0000)
Subject: [project @ 1999-02-09 12:50:38 by simonm]
X-Git-Tag: Approximately_9120_patches~6576
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=51204f69ce667d988c1b343fc5bc33d7dc98db37;p=ghc-hetmet.git

[project @ 1999-02-09 12:50:38 by simonm]
Bugfix for generation resizing in the single-generation case.
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 7957a44..8d8f16c 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.28 1999/02/08 10:41:17 simonm Exp $
+ * $Id: GC.c,v 1.29 1999/02/09 12:50:38 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -558,7 +558,7 @@ void GarbageCollect(void (*get_roots)(void))
      * performance we get from 3L bytes, reducing to the same
      * performance at 2L bytes.  
      */
-    blocks = g0s0->n_blocks;
+    blocks = g0s0->to_blocks;
 
     if ( blocks * RtsFlags.GcFlags.oldGenFactor * 2 > 
 	 RtsFlags.GcFlags.maxHeapSize ) {