X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=8aca959708173224a918031b6d0db56b3a324df0;hb=047b7c2f56d60e551892915dc6f47371a46389d7;hp=a07086e65f8d2b881e5b8cdedd3332404f31c8b7;hpb=f7de2e9478d6f43090c8a0b38a4bdb282b001c8f;p=ghc-hetmet.git

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index a07086e..8aca959 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -1239,6 +1239,8 @@ init_uncollected_gen (nat g, nat threads)
 	    if (isPartiallyFull(stp->blocks))
 	    {
 		ws->todo_bd = stp->blocks;
+                ws->todo_free = ws->todo_bd->free;
+                ws->todo_lim = ws->todo_bd->start + BLOCK_SIZE_W;
 		stp->blocks = stp->blocks->link;
 		stp->n_blocks -= 1;
 		ws->todo_bd->link = NULL;