X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=318b3f070db9ee536bc8f10e293c420abcc0e5b6;hb=d9f20043f1bff6d3731e62de4db4d98fcff57498;hp=bca60267c08a6f38d3a695837ec8d80fbff27b19;hpb=b27381f4e20a96aafc3402c925557090f9f2ac2e;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index bca6026..318b3f0 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -174,6 +174,7 @@ typedef struct _RtsSymbolVal {
 
 #if !defined (mingw32_HOST_OS)
 #define RTS_POSIX_ONLY_SYMBOLS                  \
+      SymX(shutdownHaskellAndSignal)		\
       Sym(lockFile)                             \
       Sym(unlockFile)                           \
       SymX(signal_handlers)			\
@@ -537,13 +538,16 @@ typedef struct _RtsSymbolVal {
       SymX(addDLL)               		\
       GMP_SYMS					\
       SymX(__int_encodeDouble)			\
+      SymX(__word_encodeDouble)			\
       SymX(__2Int_encodeDouble)			\
       SymX(__int_encodeFloat)			\
+      SymX(__word_encodeFloat)			\
       SymX(andIntegerzh_fast)			\
       SymX(atomicallyzh_fast)			\
       SymX(barf)				\
       SymX(debugBelch)				\
       SymX(errorBelch)				\
+      SymX(asyncExceptionsBlockedzh_fast)	\
       SymX(blockAsyncExceptionszh_fast)		\
       SymX(catchzh_fast)			\
       SymX(catchRetryzh_fast)			\
@@ -764,6 +768,7 @@ typedef struct _RtsSymbolVal {
       SymX(stg_upd_frame_info)			\
       SymX(suspendThread)			\
       SymX(takeMVarzh_fast)			\
+      SymX(threadStatuszh_fast)			\
       SymX(timesIntegerzh_fast)			\
       SymX(tryPutMVarzh_fast)			\
       SymX(tryTakeMVarzh_fast)			\