X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=daa60186d12c9a967f6d3a2f3b26d6dbfd4b292c;hb=dbbf15c0f141357aa49b583286174867baadb821;hp=f117526f3a77a3fc3d318e2d6bd8c78001f3098a;hpb=4b123ceba0c0a2f72494479a03ac9c94b6166c92;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index f117526..daa6018 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -63,7 +63,7 @@ alloc_for_copy (nat size, step *stp)
      */
     to = ws->todo_free;
     if (to + size > ws->todo_lim) {
-	to = gc_alloc_todo_block(ws);
+	to = todo_block_full(size, ws);
     }
     ws->todo_free = to + size;
     ASSERT(ws->todo_free >= ws->todo_bd->free && ws->todo_free <= ws->todo_lim);