X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=e2391842a29150091412778cff3d806e00d58240;hb=53a442f10d80cd85b33620a023c4a8749a7c0b20;hp=81709f7819a8f6fc2196ea02675c1bf59bb84a8f;hpb=2fc88e736892981b8b2b46661ac11f14dc351bc8;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 81709f7..e239184 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -174,6 +174,8 @@ typedef struct _RtsSymbolVal {
 
 #if !defined (mingw32_HOST_OS)
 #define RTS_POSIX_ONLY_SYMBOLS                  \
+      Sym(lockFile)                             \
+      Sym(unlockFile)                           \
       SymX(signal_handlers)			\
       SymX(stg_sig_install)			\
       Sym(nocldstop)
@@ -461,6 +463,23 @@ typedef struct _RtsSymbolVal {
       SymX(stg_ap_pppppp_ret)
 #endif
 
+/* On Windows, we link libgmp.a statically into libHSrts.dll */
+#ifdef mingw32_HOST_OS
+#define GMP_SYMS				\
+      SymX(__gmpz_cmp)				\
+      SymX(__gmpz_cmp_si)			\
+      SymX(__gmpz_cmp_ui)			\
+      SymX(__gmpz_get_si)			\
+      SymX(__gmpz_get_ui)
+#else
+#define GMP_SYMS				\
+      SymExtern(__gmpz_cmp)			\
+      SymExtern(__gmpz_cmp_si)			\
+      SymExtern(__gmpz_cmp_ui)			\
+      SymExtern(__gmpz_get_si)			\
+      SymExtern(__gmpz_get_ui)
+#endif
+
 #define RTS_SYMBOLS				\
       Maybe_Stable_Names			\
       Sym(StgReturn)				\
@@ -500,12 +519,7 @@ typedef struct _RtsSymbolVal {
       SymX(__encodeDouble)			\
       SymX(__encodeFloat)			\
       SymX(addDLL)               		\
-      SymExtern(__gmpn_gcd_1)			\
-      SymExtern(__gmpz_cmp)			\
-      SymExtern(__gmpz_cmp_si)			\
-      SymExtern(__gmpz_cmp_ui)			\
-      SymExtern(__gmpz_get_si)			\
-      SymExtern(__gmpz_get_ui)			\
+      GMP_SYMS					\
       SymX(__int_encodeDouble)			\
       SymX(__int_encodeFloat)			\
       SymX(andIntegerzh_fast)			\