X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=6c86cbf4d6e8e299f405e34670f779156b99a1ff;hp=5cc492596b7a2818fde84203f228b771e547496c;hb=c01264cf489fd046928804298e4fe579855e00e3;hpb=e3971de1fe67e414060047c09c4d5c64c7083981

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 5cc4925..6c86cbf 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -828,8 +828,6 @@ runPhase cc_phase _stop dflags _basename _suff input_fn get_output_fn maybe_loc
 	    split_opt | hcc && split_objs = [ "-DUSE_SPLIT_MARKERS" ]
 		      | otherwise         = [ ]
 
-	let excessPrecision = dopt Opt_ExcessPrecision dflags
-
 	let cc_opt | optLevel dflags >= 2 = "-O2"
 		   | otherwise            = "-O"
 
@@ -848,7 +846,9 @@ runPhase cc_phase _stop dflags _basename _suff input_fn get_output_fn maybe_loc
 	     	-- than a double, which leads to unpredictable results.
 		-- By default, we turn this off with -ffloat-store unless
 		-- the user specified -fexcess-precision.
-		(if excessPrecision then [] else [ "-ffloat-store" ]) ++
+		(if dopt Opt_ExcessPrecision dflags 
+                        then [] 
+                        else [ "-ffloat-store" ]) ++
 #endif
 		-- gcc's -fstrict-aliasing allows two accesses to memory
 		-- to be considered non-aliasing if they have different types.