X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinker.c;h=47c04e933506de3992c3caa48b6055e4716caebe;hb=b1c5d8c6dc8b08e6963897eadf70d8bcbfa8fa7b;hp=e63ac4036eb232c9427c53b4fd9fbc6937a091fb;hpb=7fc7b66e0728877592e3ae851ebd9cef01bd4e92;p=ghc-hetmet.git

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index e63ac40..47c04e9 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.111 2003/01/28 17:05:32 simonmar Exp $
+ * $Id: Linker.c,v 1.112 2003/01/29 09:54:32 simonmar Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -295,7 +295,6 @@ typedef struct _RtsSymbolVal {
       Maybe_ForeignObj				\
       Maybe_Stable_Names			\
       Sym(StgReturn)				\
-      Sym(init_stack)				\
       SymX(stg_enter_info)			\
       SymX(stg_enter_ret)			\
       SymX(stg_gc_void_info)			\
@@ -444,6 +443,7 @@ typedef struct _RtsSymbolVal {
       SymX(rts_mkWord64)			\
       SymX(rts_mkWord8)				\
       SymX(run_queue_hd)			\
+      SymX(setProgArgv)				\
       SymX(startupHaskell)			\
       SymX(shutdownHaskell)			\
       SymX(shutdownHaskellAndExit)		\