From: krasimir <unknown>
Date: Sat, 29 Oct 2005 18:13:52 +0000 (+0000)
Subject: [project @ 2005-10-29 18:13:52 by krasimir]
X-Git-Tag: Initial_conversion_from_CVS_complete~99
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=57d26da8cd35d248916a037c6934d4ef526e7e13

[project @ 2005-10-29 18:13:52 by krasimir]
The guessed output file should have ".exe" extension on Windows. ld tends to
add .exe automatically if the output file doesn't have extension but if
we don't add the extension explicitly then the doesFileExists check in
DriverPipeline.link will fail.
---

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index 2ff5229..fec3dfc 100644
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -365,7 +365,11 @@ guessOutputFile s = modifySession s $ \env ->
             let isMain = (== mainModIs dflags) . ms_mod
             [ms] <- return (filter isMain mod_graph)
             ml_hs_file (ms_location ms)
+#if defined(mingw32_HOST_OS)
+        guessedName = fmap (\fname -> basenameOf fname `joinFileExt` "exe") mainModuleSrcPath
+#else
         guessedName = fmap basenameOf mainModuleSrcPath
+#endif
     in
     case outputFile dflags of
         Just _ -> env