From 14c4df60baa8c86fe7725b821536b3a507511a66 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 19 Apr 2005 13:39:41 +0000 Subject: [PATCH] [project @ 2005-04-19 13:39:41 by simonmar] In the event of a complete deadlock, we should handle the case when the main thread is BlockedOnSTM (bug #1183455, the strange error message only occurs on Windows because on Unix we end up waiting for ^C instead of deadlocking). --- ghc/rts/Schedule.c | 1 + 1 file changed, 1 insertion(+) diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index b4e6558..a5f133e 100644 --- a/ghc/rts/Schedule.c +++ b/ghc/rts/Schedule.c @@ -900,6 +900,7 @@ scheduleDetectDeadlock(void) StgMainThread *m; m = main_threads; switch (m->tso->why_blocked) { + case BlockedOnSTM: case BlockedOnBlackHole: case BlockedOnException: case BlockedOnMVar: -- 1.7.10.4