[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 (file)
--- 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