Commit abad5596 authored by dons's avatar dons
Browse files

[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.
parent cc42f9eb
...@@ -354,6 +354,7 @@ typedef struct _RtsSymbolVal { ...@@ -354,6 +354,7 @@ typedef struct _RtsSymbolVal {
SymX(StackOverflowHook) \ SymX(StackOverflowHook) \
SymX(__encodeDouble) \ SymX(__encodeDouble) \
SymX(__encodeFloat) \ SymX(__encodeFloat) \
SymX(addDLL) \
SymX(__gmpn_gcd_1) \ SymX(__gmpn_gcd_1) \
SymX(__gmpz_cmp) \ SymX(__gmpz_cmp) \
SymX(__gmpz_cmp_si) \ SymX(__gmpz_cmp_si) \
...@@ -390,6 +391,7 @@ typedef struct _RtsSymbolVal { ...@@ -390,6 +391,7 @@ typedef struct _RtsSymbolVal {
SymX(genSymZh) \ SymX(genSymZh) \
SymX(getProgArgv) \ SymX(getProgArgv) \
SymX(getStablePtr) \ SymX(getStablePtr) \
SymX(initLinker) \
SymX(int2Integerzh_fast) \ SymX(int2Integerzh_fast) \
SymX(integer2Intzh_fast) \ SymX(integer2Intzh_fast) \
SymX(integer2Wordzh_fast) \ SymX(integer2Wordzh_fast) \
...@@ -404,6 +406,8 @@ typedef struct _RtsSymbolVal { ...@@ -404,6 +406,8 @@ typedef struct _RtsSymbolVal {
SymX(isFloatNaN) \ SymX(isFloatNaN) \
SymX(isFloatNegativeZero) \ SymX(isFloatNegativeZero) \
SymX(killThreadzh_fast) \ SymX(killThreadzh_fast) \
SymX(loadObj) \
SymX(lookupSymbol) \
SymX(makeStablePtrzh_fast) \ SymX(makeStablePtrzh_fast) \
SymX(minusIntegerzh_fast) \ SymX(minusIntegerzh_fast) \
SymX(mkApUpd0zh_fast) \ SymX(mkApUpd0zh_fast) \
...@@ -431,6 +435,7 @@ typedef struct _RtsSymbolVal { ...@@ -431,6 +435,7 @@ typedef struct _RtsSymbolVal {
SymX(remIntegerzh_fast) \ SymX(remIntegerzh_fast) \
SymX(resetNonBlockingFd) \ SymX(resetNonBlockingFd) \
SymX(resumeThread) \ SymX(resumeThread) \
SymX(resolveObjs) \
SymX(rts_apply) \ SymX(rts_apply) \
SymX(rts_checkSchedStatus) \ SymX(rts_checkSchedStatus) \
SymX(rts_eval) \ SymX(rts_eval) \
...@@ -550,6 +555,7 @@ typedef struct _RtsSymbolVal { ...@@ -550,6 +555,7 @@ typedef struct _RtsSymbolVal {
SymX(tryPutMVarzh_fast) \ SymX(tryPutMVarzh_fast) \
SymX(tryTakeMVarzh_fast) \ SymX(tryTakeMVarzh_fast) \
SymX(unblockAsyncExceptionszh_fast) \ SymX(unblockAsyncExceptionszh_fast) \
SymX(unloadObj) \
SymX(unsafeThawArrayzh_fast) \ SymX(unsafeThawArrayzh_fast) \
SymX(waitReadzh_fast) \ SymX(waitReadzh_fast) \
SymX(waitWritezh_fast) \ SymX(waitWritezh_fast) \
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment