[project @ 2001-03-05 12:45:45 by simonpj]

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

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 2471eb0..070e6d6 100644 (file)
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.31 2001/03/01 17:07:49 simonpj Exp $
+-- $Id: DriverState.hs,v 1.32 2001/03/05 12:45:45 simonpj Exp $
 --
 -- Settings for the driver
 --
@@ -281,20 +281,6 @@ buildCoreToDo = do
        else
           CoreDoNothing,
        if opt_level >= 2 then
-               CoreDoSimplify (isAmongSimpl [
-                  MaxSimplifierIterations max_iter
-               -- No -finline-phase: allow all Ids to be inlined now
-               ])
-       else
-         CoreDoNothing,
-               -- Simplify before SpecConstr, because LiberateCase leaves
-               -- case binders the wrong way round. E.g. it leaves it like
-               --      case x of wild { ... f x .... }
-               -- rather than
-               --      case x of wild { ... f wild ... }
-               -- The latter is better because 'wild' has the unfolding for
-               -- x inside it.
-       if opt_level >= 2 then
           CoreDoSpecConstr
        else
           CoreDoNothing,