From: simonpj <unknown>
Date: Tue, 22 Jun 1999 16:31:57 +0000 (+0000)
Subject: [project @ 1999-06-22 16:31:57 by simonpj]
X-Git-Tag: Approximately_9120_patches~6108
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b3e36b5be2c5e5225de413ede8f9e203fc5237d7;p=ghc-hetmet.git

[project @ 1999-06-22 16:31:57 by simonpj]
Do CSE right after a simplification pass; needs no-shadowing invariant
---

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.