From: simonmar@microsoft.com <unknown>
Date: Wed, 30 Jan 2008 13:54:18 +0000 (+0000)
Subject: calcNeeded: add in the large blocks too
X-Git-Tag: Before_cabalised-GHC~253
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1231d33279f25e931bcac1bac046b0f839290d61;p=ghc-hetmet.git

calcNeeded: add in the large blocks too
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index a14fe05..0bc15c0 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -1003,9 +1003,9 @@ calcNeeded(void)
 		generations[g].steps[0].n_large_blocks 
 		> generations[g].max_blocks
 		&& stp->is_compacted == 0) {
-		needed += 2 * stp->n_blocks;
+		needed += 2 * stp->n_blocks + stp->n_large_blocks;
 	    } else {
-		needed += stp->n_blocks;
+		needed += stp->n_blocks + stp->n_large_blocks;
 	    }
 	}
     }