From: dons <unknown>
Date: Wed, 16 Jun 2004 10:47:48 +0000 (+0000)
Subject: [project @ 2004-06-16 10:47:48 by dons]
X-Git-Tag: Initial_conversion_from_CVS_complete~1802
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=abad55965acd8699832b1d4708496a93de882dfe;p=ghc-hetmet.git

[project @ 2004-06-16 10:47:48 by dons]
Add linker symbols into linker symbol table.
This lets things that bind to the linker run in GHCi.
Tested on OSX and OpenBSD.

Thanks to Andre Pang.
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 964f6fb..911c880 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -354,6 +354,7 @@ typedef struct _RtsSymbolVal {
       SymX(StackOverflowHook)			\
       SymX(__encodeDouble)			\
       SymX(__encodeFloat)			\
+      SymX(addDLL)               		\
       SymX(__gmpn_gcd_1)			\
       SymX(__gmpz_cmp)				\
       SymX(__gmpz_cmp_si)			\
@@ -390,6 +391,7 @@ typedef struct _RtsSymbolVal {
       SymX(genSymZh)				\
       SymX(getProgArgv)				\
       SymX(getStablePtr)			\
+      SymX(initLinker)  			\
       SymX(int2Integerzh_fast)			\
       SymX(integer2Intzh_fast)			\
       SymX(integer2Wordzh_fast)			\
@@ -404,6 +406,8 @@ typedef struct _RtsSymbolVal {
       SymX(isFloatNaN)				\
       SymX(isFloatNegativeZero)			\
       SymX(killThreadzh_fast)			\
+      SymX(loadObj)          			\
+      SymX(lookupSymbol)     			\
       SymX(makeStablePtrzh_fast)		\
       SymX(minusIntegerzh_fast)			\
       SymX(mkApUpd0zh_fast)			\
@@ -431,6 +435,7 @@ typedef struct _RtsSymbolVal {
       SymX(remIntegerzh_fast)			\
       SymX(resetNonBlockingFd)			\
       SymX(resumeThread)			\
+      SymX(resolveObjs)                         \
       SymX(rts_apply)				\
       SymX(rts_checkSchedStatus)		\
       SymX(rts_eval)				\
@@ -550,6 +555,7 @@ typedef struct _RtsSymbolVal {
       SymX(tryPutMVarzh_fast)			\
       SymX(tryTakeMVarzh_fast)			\
       SymX(unblockAsyncExceptionszh_fast)	\
+      SymX(unloadObj)                           \
       SymX(unsafeThawArrayzh_fast)		\
       SymX(waitReadzh_fast)			\
       SymX(waitWritezh_fast)			\