X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=070e6d6767a7a7e181791c3df2c2837d57578a68;hb=e6dff21dfefdae928aa1577a294595865f8c22f6;hp=2471eb08af3354e8402f4ec12da13fa7836ec9e9;hpb=b5cad075afeeebb30e3603c23e7a1c511bff36a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 2471eb0..070e6d6 100644
--- 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,