Store a destination step in the block descriptor

[ghc-hetmet.git] / rts / Arena.c

diff --git a/rts/Arena.c b/rts/Arena.c
index 7fc49f4..e636de4 100644 (file)
--- a/rts/Arena.c
+++ b/rts/Arena.c
@@ -86,6 +86,7 @@ arenaAlloc( Arena *arena, size_t size )
 
        bd->gen_no  = 0;
        bd->step    = NULL;
+       bd->dest    = NULL;
        bd->flags   = 0;
        bd->free    = bd->start;
        bd->link    = arena->current;