From b3e36b5be2c5e5225de413ede8f9e203fc5237d7 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 22 Jun 1999 16:31:57 +0000
Subject: [PATCH] [project @ 1999-06-22 16:31:57 by simonpj] Do CSE right
 after a simplification pass; needs no-shadowing invariant

---
 ghc/driver/ghc.lprl |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index df37749..95eae3b 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -773,8 +773,10 @@ sub setupOptimiseFlags {
 		# No -finline-phase: allow all Ids to be inlined now
 	  ']',
 
+	'-fcse',	# CSE must immediately follow a simplification pass, because it relies
+			# on the no-shadowing invariant.  See comments at the top of CSE.lhs
+		 
 	'-ffloat-inwards',
-	'-fcse',
 
 # Case-liberation for -O2.  This should be after
 # strictness analysis and the simplification which follows it.
-- 
1.7.10.4