From: simonmar <unknown>
Date: Tue, 25 Oct 2005 15:27:22 +0000 (+0000)
Subject: [project @ 2005-10-25 15:27:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~134
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1bc861a6e80c774bd9d157fc54d53470490c8d09;hp=7662a4ce52204f8f131c95670e29065394087113;p=ghc-hetmet.git

[project @ 2005-10-25 15:27:22 by simonmar]
Fix bug in allocateLocal, we weren't assigning bd->step properly
---

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