From 1bc861a6e80c774bd9d157fc54d53470490c8d09 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 25 Oct 2005 15:27:22 +0000
Subject: [PATCH] [project @ 2005-10-25 15:27:22 by simonmar] Fix bug in
 allocateLocal, we weren't assigning bd->step properly

---
 ghc/rts/Storage.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 7b46021..c7ff7c3 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -672,7 +672,7 @@ allocateLocal (Capability *cap, nat n)
 		cap->r.rNursery->n_blocks++;
 		RELEASE_SM_LOCK;
 		bd->gen_no = 0;
-		bd->step = g0s0;
+		bd->step = cap->r.rNursery;
 		bd->flags = 0;
 	    } else {
 		// we have a block in the nursery: take it and put
-- 
1.7.10.4