From 213fbc81db6cc02bde330dacd4bec55ac589d1ee Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 29 Aug 2006 11:33:45 +0000 Subject: [PATCH] add missing case for BlockedOnDoProc --- rts/RaiseAsync.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 95e2492..3b97b9c 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -438,6 +438,9 @@ check_target: case BlockedOnRead: case BlockedOnWrite: case BlockedOnDelay: +#if defined(mingw32_HOST_OS) + case BlockedOnDoProc: +#endif if ((target->flags & TSO_BLOCKEX) && ((target->flags & TSO_INTERRUPTIBLE) == 0)) { blockedThrowTo(source,target); -- 1.7.10.4