X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCUtils.c;h=39a79f6b9f7439bbe0a39da39e941d38ea300ea3;hb=f6013eedb4dea47afac8167dfa08561ae90454db;hp=70c53cb8bfa0541a163990ee16e08063d8b5f70f;hpb=b99af8633eff2cba0128fa874e1ecbea0d1647fd;p=ghc-hetmet.git

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index 70c53cb..39a79f6 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -14,6 +14,7 @@
 #include "PosixSource.h"
 #include "Rts.h"
 
+#include "BlockAlloc.h"
 #include "Storage.h"
 #include "GC.h"
 #include "GCThread.h"
@@ -269,8 +270,7 @@ alloc_todo_block (step_workspace *ws, nat size)
         } else {
             bd = allocBlock_sync();
         }
-        bd->step = ws->step;
-        bd->gen_no = ws->step->gen_no;
+        initBdescr(bd, ws->step);
         bd->flags = BF_EVACUATED;
         bd->u.scan = bd->free = bd->start;
     }