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 7957a444b6c3..8d8f16ce8902 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 ) {
--
GitLab