From: mthomas <unknown>
Date: Thu, 16 Sep 2004 01:39:24 +0000 (+0000)
Subject: [project @ 2004-09-16 01:39:24 by mthomas]
X-Git-Tag: Initial_conversion_from_CVS_complete~1594
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=81c59c75ebe2ea832479c0f423c6ca234844a3fb

[project @ 2004-09-16 01:39:24 by mthomas]
On Windows default to main.exe instead of a.out.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 0673abb..0116aee 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -994,7 +994,11 @@ staticLink o_files dep_packages = do
     -- dependencies, and eliminating duplicates.
 
     o_file <- readIORef v_Output_file
+#if defined(mingw32_HOST_OS)
+    let output_fn = case o_file of { Just s -> s; Nothing -> "main.exe"; }
+#else
     let output_fn = case o_file of { Just s -> s; Nothing -> "a.out"; }
+#endif
 
     pkg_lib_paths <- getPackageLibraryPath dep_packages
     let pkg_lib_path_opts = map ("-L"++) pkg_lib_paths