From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 20 Oct 2009 11:50:20 +0000 (+0000)
Subject: Fix a regression introduced in "overlap checking of the black hole queue..."
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cc8103c7d570a20830d63510b7b1febf5b12cf61

Fix a regression introduced in "overlap checking of the black hole queue..."
We weren't checking the black-hole queue in the non-threaded RTS.
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 167cac1..539e006 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1454,6 +1454,12 @@ scheduleDoGC (Capability *cap, Task *task USED_IF_THREADS, rtsBool force_major)
         // GC thread each.
         waitForGcThreads(cap);
     }
+
+#else /* !THREADED_RTS */
+
+    // do this while the other Capabilities stop:
+    if (cap) scheduleCheckBlackHoles(cap);
+
 #endif
 
     IF_DEBUG(scheduler, printAllThreads());