Commit 91546ebd authored by Simon Marlow's avatar Simon Marlow
Browse files

-O2 implies -optc-O2 now

parent 8f8d1ebf
......@@ -847,6 +847,9 @@ runPhase cc_phase stop dflags basename suff input_fn get_output_fn maybe_loc
let excessPrecision = dopt Opt_ExcessPrecision dflags
let cc_opt | optLevel dflags >= 2 = "-O2"
| otherwise = "-O"
-- Decide next phase
let mangle = dopt Opt_DoAsmMangling dflags
......@@ -891,7 +894,7 @@ runPhase cc_phase stop dflags basename suff input_fn get_output_fn maybe_loc
++ (if hcc
then more_hcc_opts
else [])
++ [ verb, "-S", "-Wimplicit", "-O" ]
++ [ verb, "-S", "-Wimplicit", cc_opt ]
++ [ "-D__GLASGOW_HASKELL__="++cProjectVersionInt ]
++ cc_opts
++ split_opt
......
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