From: simonm <unknown>
Date: Wed, 20 Jan 1999 16:24:02 +0000 (+0000)
Subject: [project @ 1999-01-20 16:24:02 by simonm]
X-Git-Tag: Approx_2487_patches~34
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e0bbfe9cf7b9b8f23163f86212122100cce03da6;p=ghc-hetmet.git

[project @ 1999-01-20 16:24:02 by simonm]
Make use of -F<factor> flag in the two-space collector.
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index fb2eaa5..fa0977f 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.17 1999/01/20 16:07:40 simonm Exp $
+ * $Id: GC.c,v 1.18 1999/01/20 16:24:02 simonm Exp $
  *
  * Two-space garbage collector
  *
@@ -434,7 +434,8 @@ void GarbageCollect(void (*get_roots)(void))
      */
     nat blocks = g0s0->to_blocks;
 
-    if ( blocks * 4 > RtsFlags.GcFlags.maxHeapSize ) {
+    if ( blocks * RtsFlags.GcFlags.oldGenFactor * 2 > 
+	 RtsFlags.GcFlags.maxHeapSize ) {
       int adjusted_blocks;  /* signed on purpose */
       int pc_free; 
       
@@ -447,7 +448,7 @@ void GarbageCollect(void (*get_roots)(void))
       blocks = adjusted_blocks;
       
     } else {
-      blocks *= 2;
+      blocks *= RtsFlags.GcFlags.oldGenFactor;
       if (blocks < RtsFlags.GcFlags.minAllocAreaSize) {
 	blocks = RtsFlags.GcFlags.minAllocAreaSize;
       }