/* -----------------------------------------------------------------------------
- * $Id: TSO.h,v 1.24 2002/02/13 07:46:42 sof Exp $
+ * $Id: TSO.h,v 1.26 2002/04/10 11:43:44 stolz Exp $
*
* (c) The GHC Team, 1998-1999
*
, BlockedOnGA_NoSend // same as above but without sending a Fetch message
#endif
#if defined(RTS_SUPPORTS_THREADS)
- , BlockedOnCCall
+ , BlockedOnCCall
#endif
} StgTSOBlockReason;
StgTSOBlockInfo block_info;
struct StgTSO_* blocked_exceptions;
StgThreadID id;
+#ifdef DEBUG
+ char* label;
+#endif
StgTSOTickyInfo ticky;
StgTSOProfInfo prof;