diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-10-31 15:33:39 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-10-31 15:33:39 +0000 |
| commit | d13df738cbbe8017ae19ae2702f4e10805ee521b (patch) | |
| tree | 43f57da62ce922b0c07103393daf5cc96ea3caed /rts/sm/Evac.h | |
| parent | a148ad2778c66fbfd75f138af6e6a22ab7c843fe (diff) | |
| download | haskell-d13df738cbbe8017ae19ae2702f4e10805ee521b.tar.gz | |
compile special minor GC versions of evacuate() and scavenge_block()
This is for two reasons: minor GCs don't need to do per-object locking
for parallel GC, which is fairly expensive, and secondly minor GCs
don't need to follow SRTs.
Diffstat (limited to 'rts/sm/Evac.h')
| -rw-r--r-- | rts/sm/Evac.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/sm/Evac.h b/rts/sm/Evac.h index c73008fb1b..33ee4c5195 100644 --- a/rts/sm/Evac.h +++ b/rts/sm/Evac.h @@ -27,6 +27,7 @@ #define REGPARM1 #endif -REGPARM1 void evacuate (StgClosure **p); +REGPARM1 void evacuate (StgClosure **p); +REGPARM1 void evacuate0 (StgClosure **p); extern lnat thunk_selector_depth; |