/* -----------------------------------------------------------------------------
- * $Id: Exception.h,v 1.8 2004/03/01 14:18:35 simonmar Exp $
*
- * (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) {
case BlockedOnException:
case BlockedOnRead:
case BlockedOnWrite:
-#if defined(mingw32_TARGET_OS)
+#if defined(mingw32_HOST_OS)
case BlockedOnDoProc:
#endif
case BlockedOnDelay:
return 0;
}
}
+
+#endif /* EXCEPTION_H */
+