X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrimOps.hc;h=45fd2cf20243ca2d9821d0c5c2888b5848690393;hb=d3581a6a5789da15ab56c11cd02bece49273b41d;hp=9b3f3a43f2109b2ddc562916f13b19123ca07689;hpb=324e96d2ebfcb113cd97c43ef043d591ef87de71;p=ghc-hetmet.git

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index 9b3f3a4..45fd2cf 100644
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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
  *
@@ -1053,20 +1053,6 @@ FN_(forkzh_fast)
   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_