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

diff --git a/rts/Arena.c b/rts/Arena.c
index 7fc49f4..e636de4 100644
--- 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;