A small GC optimisation

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

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