From bc03de129eb6417e7c0395b0a421f23f3016878d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 11 May 2005 12:52:05 +0000
Subject: [PATCH] [project @ 2005-05-11 12:52:05 by simonmar] Another large
 block fix.

---
 ghc/rts/Schedule.c |    9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 4edc6ab..95a5bce 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1507,20 +1507,15 @@ scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
 	    { 
 		bdescr *x;
 		for (x = bd; x < bd + blocks; x++) {
-		    x->step = g0s0;
+		    x->step = cap->r.rNursery;
 		    x->gen_no = 0;
 		    x->flags = 0;
 		}
 	    }
 	    
-#if !defined(SMP)
-	    // don't forget to update the block count in g0s0.
-	    g0s0->n_blocks += blocks;
-
 	    // This assert can be a killer if the app is doing lots
 	    // of large block allocations.
-	    ASSERT(countBlocks(g0s0->blocks) == g0s0->n_blocks);
-#endif
+	    ASSERT(countBlocks(cap->r.rNursery->blocks) == cap->r.rNursery->n_blocks);
 	    
 	    // now update the nursery to point to the new block
 	    cap->r.rCurrentNursery = bd;
-- 
1.7.10.4