diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-02-02 12:30:49 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-02-02 12:30:49 +0000 |
| commit | bef3da1e26639303fccbf26c312d2833eedb486e (patch) | |
| tree | b1c8b91568eec0e0ba2ea448981d0e3f17eba741 /rts/Arena.c | |
| parent | c226846642a2201762ee34f6f71b42f13bc46629 (diff) | |
| download | haskell-bef3da1e26639303fccbf26c312d2833eedb486e.tar.gz | |
A small GC optimisation
Store the *number* of the destination generation in the Bdescr struct,
so that in evacuate() we don't have to deref gen to get it.
This is another improvement ported over from my GC branch.
Diffstat (limited to 'rts/Arena.c')
| -rw-r--r-- | rts/Arena.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Arena.c b/rts/Arena.c index 6d7a65b0f3..653eb69706 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; |