/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.111 2003/09/02 09:20:05 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.113 2003/09/21 22:20:55 wolfgang Exp $
*
* (c) The GHC Team, 1998-2002
*
FE_
}
+FN_(isCurrentThreadBoundzh_fast)
+{
+ /* no args */
+ I_ r;
+ FB_
+ r = (I_)(RET_STGCALL1(StgBool, isThreadBound, CurrentTSO));
+ RET_N(r);
+ FE_
+}
/* -----------------------------------------------------------------------------
* MVar primitives
nat target;
#endif
FB_
- /* args: R1.i */
+ /* args: R1.i (microsecond delay amount) */
ASSERT(CurrentTSO->why_blocked == NotBlocked);
CurrentTSO->why_blocked = BlockedOnDelay;
FE_
}
#endif
+