/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.112 2003/09/12 16:32:13 sof 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
FE_
}
#endif
+