From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 31 Aug 2009 06:49:08 +0000 (+0000)
Subject: waitForReturnCapability: fix logic bug
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c51229b2bfd3b1a61d3966db894210ef848f0a6d

waitForReturnCapability: fix logic bug
The check for whether a Capability was free was inverted, which harmed
performance for callbacks.
---

diff --git a/rts/Capability.c b/rts/Capability.c
index ddaba69..4264f0f 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -500,7 +500,7 @@ waitForReturnCapability (Capability **pCap, Task *task)
     if (cap == NULL) {
 	// Try last_free_capability first
 	cap = last_free_capability;
-	if (!cap->running_task) {
+	if (cap->running_task) {
 	    nat i;
 	    // otherwise, search for a free capability
             cap = NULL;