diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-12 13:01:27 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-13 08:58:57 +0000 |
| commit | 55d7931d7fb55865a592f91dfa65435ee2859158 (patch) | |
| tree | 8160c7f72333e229b3d961b1abc06eb6756bbca1 /rts/sm | |
| parent | 5c1fbb46e8e64c81d887762207334731669adcc2 (diff) | |
| download | haskell-55d7931d7fb55865a592f91dfa65435ee2859158.tar.gz | |
waitForGcThreads: should be calling interruptCapability(), not interruptAllCapabilities()
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | rts/sm/GC.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index d30300d363..3b65219927 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -1124,7 +1124,7 @@ waitForGcThreads (Capability *cap USED_IF_THREADS) for (i=0; i < n_threads; i++) { if (i == me) continue; write_barrier(); - interruptAllCapabilities(); + interruptCapability(&capabilities[i]); if (gc_threads[i]->wakeup != GC_THREAD_STANDING_BY) { retry = rtsTrue; } |