From: Ian Lynagh <igloo@earth.li>
Date: Thu, 5 Aug 2010 13:36:14 +0000 (+0000)
Subject: Ensure extension flags are flattened in the Cmm phase
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6c4bd4a67569ed9bfe8276db72f87135a61b0224

Ensure extension flags are flattened in the Cmm phase
If we start with a .cmmcpp file then they don't get flattened in
the CmmCpp phase, as we don't run that phase.
---

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 2b9cd43..113348f 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -914,7 +914,7 @@ runPhase CmmCpp _stop hsc_env _basename _suff input_fn get_output_fn maybe_loc
 
 runPhase Cmm stop hsc_env basename _ input_fn get_output_fn maybe_loc
   = do
-        let dflags = hsc_dflags hsc_env
+        let dflags = ensureFlattenedExtensionFlags $ hsc_dflags hsc_env
         let hsc_lang = hscMaybeAdjustTarget dflags stop HsSrcFile (hscTarget dflags)
         let next_phase = hscNextPhase dflags HsSrcFile hsc_lang
         output_fn <- liftIO $ get_output_fn dflags next_phase maybe_loc