diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-23 12:52:05 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-23 12:52:05 +0000 |
| commit | dc6008a61acedd3d0785111cf8955c479cb226a4 (patch) | |
| tree | 2420459740a4fcdd1686f56882b4b80a158a544a /rts/Sparks.h | |
| parent | 3eb8462836317d1c21bfd51969b2042fab6676cb (diff) | |
| download | haskell-dc6008a61acedd3d0785111cf8955c479cb226a4.tar.gz | |
Undo fix for #2185: sparks really should be treated as roots
Unless sparks are roots, strategies don't work at all: all the sparks
get GC'd. We need to think about this some more.
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 bf10a59d57..1b9784668e 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 updateSparkQueue (Capability *cap); +void markSparkQueue (evac_fn evac, void *user, Capability *cap); void traverseSparkQueue(evac_fn evac, void *user, Capability *cap); INLINE_HEADER void discardSparks (StgSparkPool *pool); |