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/Sparks.h | |
| parent | 99df892cc9620fcc92747b79bba75dad8a1d295c (diff) | |
| download | haskell-17a596022d01987d5ffe7db0742aa8db267b8cc3.tar.gz | |
traverse the spark pools only once during GC rather than twice
Diffstat (limited to 'rts/Sparks.h')
| -rw-r--r-- | rts/Sparks.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Sparks.h b/rts/Sparks.h index 4062a0b981..0d116bdbe4 100644 --- a/rts/Sparks.h +++ b/rts/Sparks.h @@ -76,8 +76,8 @@ rtsBool looksEmpty(SparkPool* deque); StgClosure * tryStealSpark (SparkPool *pool); void freeSparkPool (SparkPool *pool); void createSparkThread (Capability *cap, StgClosure *p); -void pruneSparkQueues (void); void traverseSparkQueue(evac_fn evac, void *user, Capability *cap); +void pruneSparkQueue (evac_fn evac, void *user, Capability *cap); INLINE_HEADER void discardSparks (SparkPool *pool); INLINE_HEADER nat sparkPoolSize (SparkPool *pool); |