diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-12-04 01:47:24 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-11-16 21:52:58 -0500 |
| commit | 64b2eadac4f72b66f6adef6a84d6e02fab3d29e3 (patch) | |
| tree | be81d733a9648ef2763d44a00fe65fe91389bc7a | |
| parent | e92cd2529a35dbc21d504efbedd1357420158113 (diff) | |
| download | haskell-64b2eadac4f72b66f6adef6a84d6e02fab3d29e3.tar.gz | |
Fix correctness issue
| -rw-r--r-- | rts/Capability.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 6f9f819da8..ff2763e8f4 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -910,7 +910,7 @@ void waitForCapability (Capability **pCap, Task *task) debugTrace(DEBUG_sched, "returning; I want capability %d", cap->no); acquire_capability_lock(cap); - if (get_running_task(cap)) { + if (get_running_task(cap) == NULL) { // It's free; just grab it set_running_task(cap, task); release_capability_lock(cap); |