1 /* ---------------------------------------------------------------------------
3 * (c) The GHC Team, 1998-2006
5 * Asynchronous exceptions
7 * --------------------------------------------------------------------------*/
12 #define THROWTO_SUCCESS 0
13 #define THROWTO_BLOCKED 1
16 void throwToSingleThreaded (Capability *cap,
18 StgClosure *exception);
20 void throwToSingleThreaded_ (Capability *cap,
22 StgClosure *exception,
23 rtsBool stop_at_atomically);
25 void suspendComputation (Capability *cap,
27 StgUpdateFrame *stop_here);
29 nat throwTo (Capability *cap, // the Capability we hold
30 StgTSO *source, // the TSO sending the exception
31 StgTSO *target, // the TSO receiving the exception
32 StgClosure *exception, // the exception closure
33 /*[out]*/ void **out // pass to throwToReleaseTarget()
37 void throwToReleaseTarget (void *tso);
40 int maybePerformBlockedException (Capability *cap, StgTSO *tso);
41 void awakenBlockedExceptionQueue (Capability *cap, StgTSO *tso);
43 /* Determine whether a thread is interruptible (ie. blocked
44 * indefinitely). Interruptible threads can be sent an exception with
45 * killThread# even if they have async exceptions blocked.
48 interruptible(StgTSO *t)
50 switch (t->why_blocked) {
52 case BlockedOnException:
55 #if defined(mingw32_HOST_OS)
60 // NB. Threaded blocked on foreign calls (BlockedOnCCall) are
61 // *not* interruptible. We can't send these threads an exception.
67 #endif /* CMINUSMINUS */
69 #endif /* RAISEASYNC_H */