From 51204f69ce667d988c1b343fc5bc33d7dc98db37 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 9 Feb 1999 12:50:38 +0000
Subject: [PATCH] [project @ 1999-02-09 12:50:38 by simonm] Bugfix for
 generation resizing in the single-generation case.

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

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