X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=539e006fa649d8148378faa0b550794d035e03fa;hb=fb6d198f498d4e325a540f28aaa6e1d1530839c3;hp=167cac1eab8bac83565d28b2ed2f12b03230c8ed;hpb=d46df548da44cff511cd0d656a1ec92c4551d653;p=ghc-hetmet.git

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());