summaryrefslogtreecommitdiff
path: root/rts/Arena.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-11-29 16:42:51 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-11-29 16:42:51 +0000
commitf9d15f9fccae4706fbdf8ee4ecaef7da9953cb74 (patch)
treeef79be277cf14c25b93739c420b7b2386f5562d4 /rts/Arena.c
parent9ca114a5840d8d00320e90c047022fa2ca1fa668 (diff)
downloadhaskell-f9d15f9fccae4706fbdf8ee4ecaef7da9953cb74.tar.gz
Store a destination step in the block descriptor
At the moment, this just saves a memory reference in the GC inner loop (worth a percent or two of GC time). Later, it will hopefully let me experiment with partial steps, and simplifying the generation/step infrastructure.
Diffstat (limited to 'rts/Arena.c')
-rw-r--r--rts/Arena.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Arena.c b/rts/Arena.c
index 7fc49f44d7..e636de4b9a 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;