X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=162ada872c58c29e589b937c677f698a632694e7;hb=cf96c6c8f2ead02205e509975282e212a5eb9aee;hp=71d2a8e02052eaab2da57ca0a613522cf48dd305;hpb=0f0a1585e442089357656b87144cd22abf478dda;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 71d2a8e..162ada8 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -343,6 +343,12 @@ typedef struct _RtsSymbolVal {
 #define RTS_MINGW_GETTIMEOFDAY_SYM /**/
 #endif
 
+#if HAVE___MINGW_VFPRINTF
+#define RTS___MINGW_VFPRINTF_SYM SymI_HasProto(__mingw_vfprintf)
+#else
+#define RTS___MINGW_VFPRINTF_SYM /**/
+#endif
+
 /* These are statically linked from the mingw libraries into the ghc
    executable, so we have to employ this hack. */
 #define RTS_MINGW_ONLY_SYMBOLS                           \
@@ -382,7 +388,7 @@ typedef struct _RtsSymbolVal {
       SymI_NeedsProto(isalpha)                           \
       SymI_NeedsProto(isalnum)                           \
       SymI_NeedsProto(isascii)                           \
-      SymI_HasProto(__mingw_vfprintf)                    \
+      RTS___MINGW_VFPRINTF_SYM                           \
       SymI_HasProto(strcmp)                              \
       SymI_HasProto(memmove)                             \
       SymI_HasProto(realloc)                             \