X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FArena.c;h=653eb69706e1b9f7b4a4488fca9dc99dc090e341;hb=796a3b3637f61ae04d2f9bfdb7937cd796272f72;hp=6d7a65b0f3865afa06fa865d1737df846fa929be;hpb=214b3663d5d7598c13643f9221e43d5a7735b47f;p=ghc-hetmet.git

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