/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.113 2003/09/21 22:20:55 wolfgang 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_