From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 5 May 2010 09:45:34 +0000 (+0000)
Subject: BlockedOnMsgThrowTo is possible in resurrectThreads (#4030)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6958b7bdc4d789358ef2f733586252027fe9d9d7

BlockedOnMsgThrowTo is possible in resurrectThreads (#4030)
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index f7b26a4..5ed575e 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2551,6 +2551,12 @@ resurrectThreads (StgTSO *threads)
 	     * can wake up threads, remember...).
 	     */
 	    continue;
+        case BlockedOnMsgThrowTo:
+            // This can happen if the target is masking, blocks on a
+            // black hole, and then is found to be unreachable.  In
+            // this case, we want to let the target wake up and carry
+            // on, and do nothing to this thread.
+            continue;
 	default:
 	    barf("resurrectThreads: thread blocked in a strange way: %d",
                  tso->why_blocked);