From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 20 May 2009 12:43:10 +0000 (+0000)
Subject: Windows: load msvcrt and kernel32 manually
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=16a9e2dc8e5a75f55a375b3dd6e9cf47dfc38985;p=ghc-hetmet.git

Windows: load msvcrt and kernel32 manually
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 347bfa6..8acf818 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1054,6 +1054,16 @@ initLinker( void )
         mmap_32bit_base = (void*)RtsFlags.MiscFlags.linkerMemBase;
     }
 #endif
+
+#if defined(mingw32_HOST_OS)
+    /*
+     * These two libraries cause problems when added to the static link,
+     * but are necessary for resolving symbols in GHCi, hence we load
+     * them manually here.
+     */
+    addDLL("msvcrt");
+    addDLL("kernel32");
+#endif
 }
 
 /* -----------------------------------------------------------------------------