From: simonm <unknown>
Date: Wed, 3 Sep 1997 15:55:02 +0000 (+0000)
Subject: [project @ 1997-09-03 15:55:02 by simonm]
X-Git-Tag: Approximately_1000_patches_recorded~77
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cd1d29e3dd0f616a39fddefdc7ec3009f03ad890

[project @ 1997-09-03 15:55:02 by simonm]
turn on do-case-elim for -Onot, since several easy-to-remove casees
were spotted in the output from -ddump-simpl under -Onot.
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index c9a35f7..e8c7154 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -698,6 +698,7 @@ sub setupOptimiseFlags {
 	  '-ffloat-lets-exposing-whnf',
 	  '-ffloat-primops-ok',
 	  '-fcase-of-case',
+	  '-fdo-case-elim',
 #	  '-fdo-lambda-eta-expansion',	# too complicated
 	  '-freuse-con',
 #	  '-flet-to-case',		# no strictness analysis, so...