1 /* -----------------------------------------------------------------------------
2 * $Id: Exception.h,v 1.2 2000/03/17 10:24:44 simonmar Exp $
4 * (c) The GHC Team, 1998-1999
8 * ---------------------------------------------------------------------------*/
10 extern const StgInfoTable blockAsyncExceptionszh_ret_info;
11 extern const StgInfoTable unblockAsyncExceptionszh_ret_info;
13 /* Determine whether a thread is interruptible (ie. blocked
14 * indefinitely). Interruptible threads can be sent an exception with
15 * killThread# even if they have async exceptions blocked.
18 interruptible(StgTSO *t)
20 switch (t->why_blocked) {
22 case BlockedOnException: