diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-09-09 13:52:51 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-09-09 13:52:51 +0000 |
| commit | ccb958030d8e3afcef8ef905372f9586e5ada2a3 (patch) | |
| tree | 72286a8fb2a31cb15e7d46ec2f51cd607890ba87 /rts/Sparks.h | |
| parent | 53e85ba144b56a4380e1dba2ef272da61650bcfa (diff) | |
| download | haskell-ccb958030d8e3afcef8ef905372f9586e5ada2a3.tar.gz | |
Separate pruning from marking of spark pools
Fixes crash when using compacting GC in parallel programs
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 1b9784668e..8e0ba90f3d 100644 --- a/rts/Sparks.h +++ b/rts/Sparks.h @@ -14,7 +14,7 @@ StgClosure * findSpark (Capability *cap); void initSparkPools (void); void freeSparkPool (StgSparkPool *pool); void createSparkThread (Capability *cap, StgClosure *p); -void markSparkQueue (evac_fn evac, void *user, Capability *cap); +void pruneSparkQueues (void); void traverseSparkQueue(evac_fn evac, void *user, Capability *cap); INLINE_HEADER void discardSparks (StgSparkPool *pool); |