Make simplifier report which phase it is doing in -ddump output

[ghc-hetmet.git] / compiler / main / DynFlags.hs

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 78acb98..9a7de07 100644 (file)
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -641,9 +641,8 @@ getCoreToDo dflags
                        -- Similarly, don't apply any rules until after full 
                        -- laziness.  Notably, list fusion can prevent floating.
 
-            NoCaseOfCase,
-                       -- Don't do case-of-case transformations.
-                       -- This makes full laziness work better
+            NoCaseOfCase,      -- Don't do case-of-case transformations.
+                               -- This makes full laziness work better
            MaxSimplifierIterations max_iter
        ],
 
@@ -1007,7 +1006,6 @@ fFlags = [
 glasgowExtsFlags = [ 
   Opt_GlasgowExts, 
   Opt_FFI, 
-  Opt_TH, 
   Opt_ImplicitParams, 
   Opt_ScopedTypeVariables,
   Opt_BangPatterns ]
@@ -1268,11 +1266,13 @@ machdepCCOpts dflags
                        -- and get in the way of -split-objs.  Another option
                        -- would be to throw them away in the mangler, but this
                        -- is easier.
+#ifdef HAVE_GCC_HAS_NO_UNIT_AT_A_TIME
                 "-fno-unit-at-a-time",
                        -- unit-at-a-time doesn't do us any good, and screws
                        -- up -split-objs by moving the split markers around.
                        -- It's only turned on with -O2, but put it here just
                        -- in case someone uses -optc-O2.
+#endif
                 "-fno-builtin"
                        -- calling builtins like strlen() using the FFI can
                        -- cause gcc to run out of regs, so use the external