projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add some missing exports back for GHC package users; fixes trac #3715
[ghc-hetmet.git]
/
rts
/
Arena.c
diff --git
a/rts/Arena.c
b/rts/Arena.c
index
fcdc6cc
..
6d7a65b
100644
(file)
--- a/
rts/Arena.c
+++ b/
rts/Arena.c
@@
-18,12
+18,12
@@
which most allocations are small.
-------------------------------------------------------------------------- */
which most allocations are small.
-------------------------------------------------------------------------- */
+#include "PosixSource.h"
#include "Rts.h"
#include "Rts.h"
+
#include "RtsUtils.h"
#include "Arena.h"
#include "RtsUtils.h"
#include "Arena.h"
-#include <stdlib.h>
-
// Each arena struct is allocated using malloc().
struct _Arena {
bdescr *current;
// 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;
arena_blocks += req_blocks;
bd->gen_no = 0;
- bd->step = NULL;
+ bd->gen = NULL;
+ bd->dest = NULL;
bd->flags = 0;
bd->free = bd->start;
bd->link = arena->current;
bd->flags = 0;
bd->free = bd->start;
bd->link = arena->current;