From 8f624641f3eb421154ab170ce5aeaca75b90d2f0 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Wed, 5 May 2004 19:48:54 +0000
Subject: [PATCH] [project @ 2004-05-05 19:48:54 by krasimir] The commit
 allows to build GHCi libraries in Windows Command Prompt

---
 ghc/utils/ghc-pkg/Main.hs |    6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ghc/utils/ghc-pkg/Main.hs b/ghc/utils/ghc-pkg/Main.hs
index c5ec0d5..05c92e3 100644
--- a/ghc/utils/ghc-pkg/Main.hs
+++ b/ghc/utils/ghc-pkg/Main.hs
@@ -372,9 +372,15 @@ autoBuildGHCiLib dir batch_file ghci_file = do
   system("ld -r -x -o " ++ ghci_lib_file ++ 
 	 " -all_load " ++ batch_lib_file)
 #else
+#ifdef mingw32_HOST_OS
+  execDir <- getExecDir "/bin/ghc-pkg.exe"
+  system (maybe "" (++"/gcc-lib/") execDir++"ld -r -x -o " ++ ghci_lib_file ++ 
+	 " --whole-archive " ++ batch_lib_file)
+#else
   system("ld -r -x -o " ++ ghci_lib_file ++ 
 	 " --whole-archive " ++ batch_lib_file)
 #endif
+#endif
   hPutStrLn stderr (" done.")
 
 -----------------------------------------------------------------------------
-- 
1.7.10.4