[project @ 2004-02-26 16:49:34 by simonmar]

[ghc-hetmet.git] / ghc / rts / Capability.c

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 18ef4df..c99cf05 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -206,7 +206,9 @@ releaseCapability( Capability* cap UNUSED_IF_NOT_SMP )
        rts_n_free_capabilities = 1;
 #endif
        // Signal that a capability is available
-       signalCondition(&thread_ready_cond);
+       if (rts_n_waiting_tasks > 0) {
+           signalCondition(&thread_ready_cond);
+       }
        startSchedulerTaskIfNecessary();
        IF_DEBUG(scheduler, sched_belch("worker: released capability"));
     }