/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.111 2003/09/02 09:20:05 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.114 2003/10/01 10:57:41 wolfgang Exp $
*
* (c) The GHC Team, 1998-2002
*
FE_
}
-FN_(forkProcesszh_fast)
-{
- pid_t pid;
-
- FB_
- /* args: none */
- /* result: Pid */
-
- R1.i = RET_STGCALL1(StgInt, forkProcess, CurrentTSO);
-
- RET_N(R1.i);
- FE_
-}
-
FN_(yieldzh_fast)
{
FB_
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
+