diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-11-21 15:58:51 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-11-21 15:58:51 +0000 |
| commit | 047b7c2f56d60e551892915dc6f47371a46389d7 (patch) | |
| tree | 28c72f62b56b820a1a960bed0ec4f8a779bec3e6 /rts/sm/GCUtils.h | |
| parent | f7de2e9478d6f43090c8a0b38a4bdb282b001c8f (diff) | |
| download | haskell-047b7c2f56d60e551892915dc6f47371a46389d7.tar.gz | |
cache bd->todo_bd->free and the limit in the workspace
avoids cache contention: bd->todo_bd->free may clash with any cache
line, so we localise it.
Diffstat (limited to 'rts/sm/GCUtils.h')
| -rw-r--r-- | rts/sm/GCUtils.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GCUtils.h b/rts/sm/GCUtils.h index 2b22407d31..57c3b0ced5 100644 --- a/rts/sm/GCUtils.h +++ b/rts/sm/GCUtils.h @@ -21,7 +21,7 @@ bdescr *allocBlock_sync(void); void push_scan_block (bdescr *bd, step_workspace *ws); bdescr *grab_todo_block (step_workspace *ws); -bdescr *gc_alloc_todo_block (step_workspace *ws); +StgPtr gc_alloc_todo_block (step_workspace *ws); bdescr *gc_alloc_scavd_block (step_workspace *ws); // Returns true if a block is 3/4 full. This predicate is used to try |