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

diff --git a/rts/Arena.c b/rts/Arena.c
index fcdc6cc..e636de4 100644
--- a/rts/Arena.c
+++ b/rts/Arena.c
@@ -18,12 +18,12 @@
    which most allocations are small.
    -------------------------------------------------------------------------- */
 
+#include "PosixSource.h"
 #include "Rts.h"
+
 #include "RtsUtils.h"
 #include "Arena.h"
 
-#include <stdlib.h>
-
 // Each arena struct is allocated using malloc().
 struct _Arena {
     bdescr *current;
@@ -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;