From: simonmar <unknown>
Date: Mon, 7 Mar 2005 12:20:28 +0000 (+0000)
Subject: [project @ 2005-03-07 12:20:28 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~968
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=04e294bda9f5127d3d5f09d20491e52b7f796d7a

[project @ 2005-03-07 12:20:28 by simonmar]
Add missing hs_* symbols
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 7b9df7f..4fb0ed6 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -425,7 +425,14 @@ typedef struct _RtsSymbolVal {
       SymX(genericRaise)			\
       SymX(getProgArgv)				\
       SymX(getStablePtr)			\
-      SymX(initLinker)  			\
+      SymX(hs_init)				\
+      SymX(hs_exit)				\
+      SymX(hs_set_argv)				\
+      SymX(hs_add_root)				\
+      SymX(hs_perform_gc)			\
+      SymX(hs_free_stable_ptr)			\
+      SymX(hs_free_fun_ptr)			\
+      SymX(initLinker)				\
       SymX(int2Integerzh_fast)			\
       SymX(integer2Intzh_fast)			\
       SymX(integer2Wordzh_fast)			\