cache bd->todo_bd->free and the limit in the workspace

[ghc-hetmet.git] / rts / sm / GC.c

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index a07086e..8aca959 100644 (file)
--- 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;