diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-10-22 11:52:33 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-10-22 11:52:33 +0000 |
| commit | 17a596022d01987d5ffe7db0742aa8db267b8cc3 (patch) | |
| tree | f041c0b8bbf62e29319f19cdfd28a85d146a0608 /rts/Capability.h | |
| parent | 99df892cc9620fcc92747b79bba75dad8a1d295c (diff) | |
| download | haskell-17a596022d01987d5ffe7db0742aa8db267b8cc3.tar.gz | |
traverse the spark pools only once during GC rather than twice
Diffstat (limited to 'rts/Capability.h')
| -rw-r--r-- | rts/Capability.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Capability.h b/rts/Capability.h index 779a1945a5..89b813f6d3 100644 --- a/rts/Capability.h +++ b/rts/Capability.h @@ -264,7 +264,8 @@ void setContextSwitches(void); void freeCapability (Capability *cap); // FOr the GC: -void markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta); +void markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta, + rtsBool prune_sparks); void markCapabilities (evac_fn evac, void *user); void traverseSparkQueues (evac_fn evac, void *user); |