/* -----------------------------------------------------------------------------
- * $Id: Exception.h,v 1.5 2002/12/11 15:36:42 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
* indefinitely). Interruptible threads can be sent an exception with
* killThread# even if they have async exceptions blocked.
*/
-static __inline__ int
+INLINE_HEADER int
interruptible(StgTSO *t)
{
switch (t->why_blocked) {
case BlockedOnException:
case BlockedOnRead:
case BlockedOnWrite:
+#if defined(mingw32_HOST_OS)
+ case BlockedOnDoProc:
+#endif
case BlockedOnDelay:
return 1;
+ // NB. Threaded blocked on foreign calls (BlockedOnCCall) are
+ // *not* interruptible. We can't send these threads an exception.
default:
return 0;
}
}
+