From d4e2c3a1d02169cdbd71577a3189d94a158e806b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 Nov 2000 12:54:09 +0000
Subject: [PATCH] [project @ 2000-11-09 12:54:08 by simonmar] A few doLink
 fixes (merged from driver).

---
 ghc/compiler/main/DriverPipeline.hs |   28 +++++++++++++++++++++++++---
 ghc/compiler/main/DriverState.hs    |    3 ++-
 2 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 8265bc5..2542e10 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.17 2000/11/08 16:24:34 simonmar Exp $
+-- $Id: DriverPipeline.hs,v 1.18 2000/11/09 12:54:08 simonmar Exp $
 --
 -- GHC Driver
 --
@@ -656,6 +656,10 @@ doLink :: [String] -> IO ()
 doLink o_files = do
     ln <- readIORef v_Pgm_l
     verb <- is_verbose
+    static <- readIORef v_Static
+    let imp = if static then "" else "_imp"
+    no_hs_main <- readIORef v_NoHsMain
+
     o_file <- readIORef v_Output_file
     let output_fn = case o_file of { Just s -> s; Nothing -> "a.out"; }
 
@@ -666,7 +670,7 @@ doLink o_files = do
     let lib_path_opts = map ("-L"++) lib_paths
 
     pkg_libs <- getPackageLibraries
-    let pkg_lib_opts = map (\lib -> "-l"++lib) pkg_libs
+    let pkg_lib_opts = map (\lib -> "-l" ++ lib ++ imp) pkg_libs
 
     libs <- readIORef v_Cmdline_libraries
     let lib_opts = map ("-l"++) (reverse libs)
@@ -680,10 +684,23 @@ doLink o_files = do
 	-- opts from -optl-<blah>
     extra_ld_opts <- getStaticOpts v_Opt_l
 
+    rts_pkg <- getPackageDetails ["rts"]
+    std_pkg <- getPackageDetails ["std"]
+#ifdef mingw32_TARGET_OS
+    let extra_os = if static || no_hs_main
+                   then []
+                   else [ head (library_dirs (head rts_pkg)) ++ "/Main.dll_o",
+                          head (library_dirs (head std_pkg)) ++ "/PrelMain.dll_o" ]
+#endif
+    (md_c_flags, _) <- machdepCCOpts
     run_something "Linker"
-       (unwords 
+       (unwords
 	 ([ ln, verb, "-o", output_fn ]
+	 ++ md_c_flags
 	 ++ o_files
+#ifdef mingw32_TARGET_OS
+	 ++ extra_os
+#endif
 	 ++ extra_ld_inputs
 	 ++ lib_path_opts
 	 ++ lib_opts
@@ -691,6 +708,11 @@ doLink o_files = do
 	 ++ pkg_lib_opts
 	 ++ pkg_extra_ld_opts
 	 ++ extra_ld_opts
+#ifdef mingw32_TARGET_OS
+         ++ if static then [ "-u _PrelMain_mainIO_closure" , "-u ___init_PrelMain"] else []
+#else
+	 ++ [ "-u PrelMain_mainIO_closure" , "-u __init_PrelMain"]
+#endif
 	)
        )
 
diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index e0ee8b9..9c297a8 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.11 2000/11/08 15:25:25 simonmar Exp $
+-- $Id: DriverState.hs,v 1.12 2000/11/09 12:54:09 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -128,6 +128,7 @@ GLOBAL_VAR(v_Static, 			True,		Bool)
 #else
 GLOBAL_VAR(v_Static,            	False,          Bool)
 #endif
+GLOBAL_VAR(v_NoHsMain, 			False, 		Bool)
 GLOBAL_VAR(v_Recomp,  			True,		Bool)
 GLOBAL_VAR(v_Collect_ghc_timing, 	False,		Bool)
 GLOBAL_VAR(v_Do_asm_mangling,		True,		Bool)
-- 
1.7.10.4