Commit abad5596 authored by dons's avatar dons

[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 {
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) \
......
Markdown is supported
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