From cc8103c7d570a20830d63510b7b1febf5b12cf61 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 20 Oct 2009 11:50:20 +0000 Subject: [PATCH] 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. --- rts/Schedule.c | 6 ++++++ 1 file changed, 6 insertions(+) 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()); -- 1.7.10.4