[project @ 2005-04-12 09:04:23 by simonmar]

[ghc-hetmet.git] / ghc / rts / Schedule.c

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 6e4d955..d078df2 100644 (file)
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1466,13 +1466,12 @@ scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
            if (cap->r.rCurrentNursery->u.back != NULL) {
                cap->r.rCurrentNursery->u.back->link = bd;
            } else {
-#ifdef SMP
-               cap->r.rNursery = g0s0->blocks = bd;
-#else
+#if !defined(SMP)
                ASSERT(g0s0->blocks == cap->r.rCurrentNursery &&
                       g0s0->blocks == cap->r.rNursery);
-               cap->r.rNursery = g0s0->blocks = bd;
+               g0s0->blocks = bd;
 #endif
+               cap->r.rNursery = bd;
            }             
            cap->r.rCurrentNursery->u.back = bd;