projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-09-16 01:39:24 by mthomas]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
DriverPipeline.hs
diff --git
a/ghc/compiler/main/DriverPipeline.hs
b/ghc/compiler/main/DriverPipeline.hs
index
0673abb
..
0116aee
100644
(file)
--- 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
-- 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"; }
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
pkg_lib_paths <- getPackageLibraryPath dep_packages
let pkg_lib_path_opts = map ("-L"++) pkg_lib_paths