diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-05-25 15:04:35 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-05-25 15:04:35 +0000 |
| commit | f9ce05ef56187d981b5d1af51e3f53fc6f202d5b (patch) | |
| tree | 7f1e10b97c8592f784c6db4c8a7b0e2775155bf9 /rts/Capability.c | |
| parent | 6c016f3803fec507f6a509a4929fc2344ee66fd8 (diff) | |
| download | haskell-f9ce05ef56187d981b5d1af51e3f53fc6f202d5b.tar.gz | |
Make sparks into weak pointers (#2185)
The new strategies library (parallel-2.0+, preferably 2.2+) is now
required for parallel programming, otherwise parallelism will be lost.
Diffstat (limited to 'rts/Capability.c')
| -rw-r--r-- | rts/Capability.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index f5e77a900f..2fcd72c12a 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -819,7 +819,7 @@ freeCapabilities (void) void markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta, - rtsBool prune_sparks USED_IF_THREADS) + rtsBool no_mark_sparks USED_IF_THREADS) { nat i; Capability *cap; @@ -843,9 +843,7 @@ markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta, } #if defined(THREADED_RTS) - if (prune_sparks) { - pruneSparkQueue (evac, user, cap); - } else { + if (!no_mark_sparks) { traverseSparkQueue (evac, user, cap); } #endif |