From 17a596022d01987d5ffe7db0742aa8db267b8cc3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 22 Oct 2008 11:52:33 +0000 Subject: traverse the spark pools only once during GC rather than twice --- rts/Sparks.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'rts/Sparks.h') 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); -- cgit v1.2.1