From 0bff4d75254dabb2c002eace2252a4480bf8474e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 10 Dec 2008 16:46:44 +0000 Subject: [PATCH] wake up other Capabilities even when there is only one spark (see #2868) --- rts/Schedule.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/rts/Schedule.c b/rts/Schedule.c index 33715b1..38e3a3c 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -777,9 +777,11 @@ schedulePushWork(Capability *cap USED_IF_THREADS, // Check whether we have more threads on our run queue, or sparks // in our pool, that we could hand to another Capability. - if ((emptyRunQueue(cap) || cap->run_queue_hd->_link == END_TSO_QUEUE) - && sparkPoolSizeCap(cap) < 2) { - return; + if (cap->run_queue_hd == END_TSO_QUEUE) { + if (sparkPoolSizeCap(cap) < 2) return; + } else { + if (cap->run_queue_hd->_link == END_TSO_QUEUE && + sparkPoolSizeCap(cap) < 1) return; } // First grab as many free Capabilities as we can. -- 1.7.10.4