X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FGC.c;h=efc1a6487f0287a9a4804bed36a0423f0f929884;hb=97f15badc84f6fbae1e11c5879dd161fd5e80dfe;hp=1b3dc0dee3ffcb83cbc9436c0488871673ffcde5;hpb=bfd50cd8881723ad87c83a758c898784fa61b7c3;p=ghc-hetmet.git

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 1b3dc0d..efc1a64 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.13 1999/01/19 15:07:53 simonm Exp $
+ * $Id: GC.c,v 1.14 1999/01/19 15:41:56 simonm Exp $
  *
  * Two-space garbage collector
  *
@@ -455,16 +455,15 @@ void GarbageCollect(void (*get_roots)(void))
 	 * between the maximum size of the oldest and youngest
 	 * generations.
 	 *
-	 * max_blocks = alloc_area_size +  
-	 *                 (oldgen_max_blocks - alloc_area_size) * G
-	 *                 -----------------------------------------
-	 *                              oldest_gen
+	 * max_blocks =    oldgen_max_blocks  * G
+	 *                 -----------------------
+	 *                       oldest_gen
 	 */
 	if (g != 0) {
 	  generations[g].max_blocks = 
-	    RtsFlags.GcFlags.minAllocAreaSize +
-	     (((oldest_gen->max_blocks - RtsFlags.GcFlags.minAllocAreaSize) * g)
-	       / (RtsFlags.GcFlags.generations-1));
+	    stg_max(RtsFlags.GcFlags.minOldGenSize,
+		    (oldest_gen->max_blocks * g) / 
+		    (RtsFlags.GcFlags.generations-1));
 	}
 
       /* for older generations... */