X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FArena.c;h=653eb69706e1b9f7b4a4488fca9dc99dc090e341;hb=7d9eb2e45b4a9ff4cb053b1ec37602be88528b62;hp=e636de4b9ae0ab6a58d1e4469854b49b740fc621;hpb=f9d15f9fccae4706fbdf8ee4ecaef7da9953cb74;p=ghc-hetmet.git

diff --git a/rts/Arena.c b/rts/Arena.c
index e636de4..653eb69 100644
--- a/rts/Arena.c
+++ b/rts/Arena.c
@@ -85,8 +85,8 @@ arenaAlloc( Arena *arena, size_t size )
 	arena_blocks += req_blocks;
 
 	bd->gen_no  = 0;
-	bd->step    = NULL;
-	bd->dest    = NULL;
+	bd->gen     = NULL;
+        bd->dest_no = 0;
 	bd->flags   = 0;
 	bd->free    = bd->start;
 	bd->link    = arena->current;