X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCUtils.c;fp=rts%2Fsm%2FGCUtils.c;h=2a31e2358b2e565be02b9946e7f3e0b802fb83d1;hb=77798610bc585a1eea3b6695c4a3fee1ccba70ba;hp=7e1aaa11e604f964034c562627a9ba71649a3868;hpb=49780c2e25cfbe821d585c5a31cb95aa49f41f14;p=ghc-hetmet.git

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index 7e1aaa1..2a31e23 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -205,7 +205,6 @@ StgPtr
 alloc_todo_block (step_workspace *ws, nat size)
 {
     bdescr *bd, *hd, *tl;
-    StgWord32 flags;
 
     // Grab a part block if we have one, and it has enough room
     if (ws->part_list != NULL && 
@@ -217,15 +216,8 @@ alloc_todo_block (step_workspace *ws, nat size)
     }
     else
     {
-        // blocks in to-space in generations up to and including N
-        // get the BF_EVACUATED flag.
-        if (ws->step->gen_no <= N) {
-            flags = BF_EVACUATED;
-        } else {
-            flags = 0;
-        }
         allocBlocks_sync(4, &hd, &tl, 
-                         ws->step->gen_no, ws->step, flags);
+                         ws->step->gen_no, ws->step, BF_EVACUATED);
 
         tl->link = ws->part_list;
         ws->part_list = hd->link;