/* -----------------------------------------------------------------------------
*
- * (c) The GHC Team, 1998-2000
+ * (c) The GHC Team, 1998-2005
*
* Exception support
*
* ---------------------------------------------------------------------------*/
+#ifndef EXCEPTION_H
+#define EXCEPTION_H
+
extern const StgRetInfoTable stg_blockAsyncExceptionszh_ret_info;
extern const StgRetInfoTable stg_unblockAsyncExceptionszh_ret_info;
* indefinitely). Interruptible threads can be sent an exception with
* killThread# even if they have async exceptions blocked.
*/
-INLINE_HEADER int
+STATIC_INLINE int
interruptible(StgTSO *t)
{
switch (t->why_blocked) {
}
}
+#endif /* EXCEPTION_H */
+