From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 24 Feb 2006 12:40:33 +0000 (+0000)
Subject: -O2 implies -optc-O2 now
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=91546ebde962f7a7e88073118e433f727b3080c8

-O2 implies -optc-O2 now
---

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