From: simonmar <unknown>
Date: Mon, 22 Nov 2004 12:41:20 +0000 (+0000)
Subject: [project @ 2004-11-22 12:41:20 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1405
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0daf85988d7f0dc10cf00ed9a62f55659413479d;p=ghc-hetmet.git

[project @ 2004-11-22 12:41:20 by simonmar]
threadRunnable: Fix (probably harmless) buglet
---

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 62f205d..e839a6c 100644
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -412,7 +412,7 @@ void
 threadRunnable ( void )
 {
 #if defined(RTS_SUPPORTS_THREADS)
-    if ( !noCapabilities && ANY_WORK_TO_DO() && rts_n_waiting_tasks > 0 ) {
+    if ( !noCapabilities() && ANY_WORK_TO_DO() && rts_n_waiting_tasks > 0 ) {
 	signalCondition(&thread_ready_cond);
     }
     startSchedulerTaskIfNecessary();