From 91546ebde962f7a7e88073118e433f727b3080c8 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 24 Feb 2006 12:40:33 +0000 Subject: [PATCH] -O2 implies -optc-O2 now --- ghc/compiler/main/DriverPipeline.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index 171cecf..039c18a 100644 --- a/ghc/compiler/main/DriverPipeline.hs +++ b/ghc/compiler/main/DriverPipeline.hs @@ -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 -- 1.7.10.4