X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinker.c;h=597da146113f426bf481a3f28b770e168b0a5a0a;hb=c1f3fad183f553aa46ec9dea33999f387014fded;hp=1dd4b0f6068d3a03be00b2ab8c98f66020bebd74;hpb=3fd1d833b7d6032d67537491650c0a653bbef0e2;p=ghc-hetmet.git

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 1dd4b0f..597da14 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.86 2002/04/01 11:18:18 panne Exp $
+ * $Id: Linker.c,v 1.87 2002/04/10 11:43:45 stolz Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -216,6 +216,7 @@ typedef struct _RtsSymbolVal {
       SymX(divExactIntegerzh_fast)		\
       SymX(divModIntegerzh_fast)		\
       SymX(forkzh_fast)				\
+      SymX(forkProcesszh_fast)                  \
       SymX(freeHaskellFunctionPtr)		\
       SymX(freeStablePtr)		        \
       SymX(gcdIntegerzh_fast)			\
@@ -240,6 +241,7 @@ typedef struct _RtsSymbolVal {
       SymX(minusIntegerzh_fast)			\
       SymX(mkApUpd0zh_fast)			\
       SymX(myThreadIdzh_fast)			\
+      SymX(labelThreadzh_fast)                  \
       SymX(newArrayzh_fast)			\
       SymX(newBCOzh_fast)			\
       SymX(newByteArrayzh_fast)			\