From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 15 Jul 2008 13:03:16 +0000 (+0000)
Subject: non-threaded RTS: don't assume deadlock if there are signal handlers to run
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6ca83f41edc4d4db300e129f123fc42eb40a43b0

non-threaded RTS: don't assume deadlock if there are signal handlers to run
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index fd84fde..ce6a1db 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1005,6 +1005,8 @@ scheduleDetectDeadlock (Capability *cap, Task *task)
 
 	    // either we have threads to run, or we were interrupted:
 	    ASSERT(!emptyRunQueue(cap) || sched_state >= SCHED_INTERRUPTING);
+
+            return;
 	}
 #endif