Commit 9066f934 authored by sof's avatar sof

[project @ 2002-01-08 14:55:50 by sof]

make -split-objs work again
parent 95bf7df4
...@@ -613,6 +613,8 @@ run_phase cc_phase basename suff input_fn output_fn ...@@ -613,6 +613,8 @@ run_phase cc_phase basename suff input_fn output_fn
pkg_extra_cc_opts <- getPackageExtraCcOpts pkg_extra_cc_opts <- getPackageExtraCcOpts
split_objs <- readIORef v_Split_object_files split_objs <- readIORef v_Split_object_files
let split_opt | hcc && split_objs = [ "-DUSE_SPLIT_MARKERS" ]
| otherwise = [ ]
excessPrecision <- readIORef v_Excess_precision excessPrecision <- readIORef v_Excess_precision
...@@ -635,6 +637,7 @@ run_phase cc_phase basename suff input_fn output_fn ...@@ -635,6 +637,7 @@ run_phase cc_phase basename suff input_fn output_fn
++ [ verb, "-S", "-Wimplicit", opt_flag ] ++ [ verb, "-S", "-Wimplicit", opt_flag ]
++ [ "-D__GLASGOW_HASKELL__="++cProjectVersionInt ] ++ [ "-D__GLASGOW_HASKELL__="++cProjectVersionInt ]
++ cc_opts ++ cc_opts
++ split_opt
++ (if excessPrecision then [] else [ "-ffloat-store" ]) ++ (if excessPrecision then [] else [ "-ffloat-store" ])
++ include_paths ++ include_paths
++ pkg_extra_cc_opts ++ pkg_extra_cc_opts
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment