diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2009-05-14 18:35:50 +0000 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2009-05-14 18:35:50 +0000 |
| commit | 3d411991d3c697e5a93e6922582fe8299210e83d (patch) | |
| tree | 9931bee481701e9ffc2d98988c44757c280a7789 /compiler/main | |
| parent | 11d4f6867b6a1088eeb809c4520ea1e40b1e68f4 (diff) | |
| download | haskell-3d411991d3c697e5a93e6922582fe8299210e83d.tar.gz | |
Remove old Windows-only implementation of keeping main outside the rts
We now do it for all ways and for all platforms. This was a Windows-only
version that only kept a separate Main.dyn_o for the dynamic linking case.
It had to do that because Windows DLLs are stricter about unresolved symbols
where as for ELF platforms we only run into the problem when we're not using
a Haskell main function.
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 9ac8fe4586..f8f06765a3 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1395,12 +1395,6 @@ linkBinary dflags o_files dep_packages = do framework_opts = concat [ ["-framework", fw] | fw <- reverse frameworks ] -- reverse because they're added in reverse order from the cmd line #endif -#ifdef mingw32_TARGET_OS - let dynMain = if not opt_Static then - (head (libraryDirs (getPackageDetails (pkgState dflags) rtsPackageId))) ++ "/Main.dyn_o" - else - "" -#endif -- probably _stub.o files extra_ld_inputs <- readIORef v_Ld_inputs @@ -1442,9 +1436,6 @@ linkBinary dflags o_files dep_packages = do ++ map SysTools.Option ( md_c_flags ++ o_files -#ifdef mingw32_TARGET_OS - ++ [dynMain] -#endif ++ extra_ld_inputs ++ lib_path_opts ++ extra_ld_opts |