Commit 53806509 authored by simonpj's avatar simonpj
Browse files

[project @ 1999-06-24 11:28:26 by simonpj]

Nuke -fcase-elim; sometimes things fail if you dont have it (Sergeys message)
parent 9073ad8f
...@@ -99,7 +99,6 @@ module CmdLineOpts ( ...@@ -99,7 +99,6 @@ module CmdLineOpts (
opt_UnboxStrictFields, opt_UnboxStrictFields,
opt_SimplNoPreInlining, opt_SimplNoPreInlining,
opt_SimplDoEtaReduction, opt_SimplDoEtaReduction,
opt_SimplDoCaseElim,
opt_SimplDoLambdaEtaExpansion, opt_SimplDoLambdaEtaExpansion,
opt_SimplCaseOfCase, opt_SimplCaseOfCase,
opt_SimplCaseMerge, opt_SimplCaseMerge,
...@@ -407,7 +406,6 @@ opt_SimplNoPreInlining = lookUp SLIT("-fno-pre-inlining") ...@@ -407,7 +406,6 @@ opt_SimplNoPreInlining = lookUp SLIT("-fno-pre-inlining")
-- NoPreInlining is there just to see how bad things -- NoPreInlining is there just to see how bad things
-- get if you don't do it! -- get if you don't do it!
opt_SimplDoEtaReduction = lookUp SLIT("-fdo-eta-reduction") opt_SimplDoEtaReduction = lookUp SLIT("-fdo-eta-reduction")
opt_SimplDoCaseElim = lookUp SLIT("-fdo-case-elim")
opt_SimplDoLambdaEtaExpansion = lookUp SLIT("-fdo-lambda-eta-expansion") opt_SimplDoLambdaEtaExpansion = lookUp SLIT("-fdo-lambda-eta-expansion")
opt_SimplCaseOfCase = lookUp SLIT("-fcase-of-case") opt_SimplCaseOfCase = lookUp SLIT("-fcase-of-case")
opt_SimplCaseMerge = lookUp SLIT("-fcase-merge") opt_SimplCaseMerge = lookUp SLIT("-fcase-merge")
......
...@@ -11,7 +11,6 @@ module Simplify ( simplTopBinds, simplExpr ) where ...@@ -11,7 +11,6 @@ module Simplify ( simplTopBinds, simplExpr ) where
import CmdLineOpts ( intSwitchSet, import CmdLineOpts ( intSwitchSet,
opt_SccProfilingOn, opt_PprStyle_Debug, opt_SimplDoEtaReduction, opt_SccProfilingOn, opt_PprStyle_Debug, opt_SimplDoEtaReduction,
opt_SimplNoPreInlining, opt_DictsStrict, opt_SimplPedanticBottoms, opt_SimplNoPreInlining, opt_DictsStrict, opt_SimplPedanticBottoms,
opt_SimplDoCaseElim,
SimplifierSwitch(..) SimplifierSwitch(..)
) )
import SimplMonad import SimplMonad
...@@ -991,8 +990,12 @@ rebuild scrut (Select _ bndr alts se cont) ...@@ -991,8 +990,12 @@ rebuild scrut (Select _ bndr alts se cont)
-- other problems -- other problems
) )
&& opt_SimplDoCaseElim -- && opt_SimplDoCaseElim
= -- Get rid of the case altogether -- [June 99; don't test this flag. The code generator dies if it sees
-- case (\x.e) of f -> ...
-- so better to always do it
= -- Get rid of the case altogether
-- See the extensive notes on case-elimination below -- See the extensive notes on case-elimination below
-- Remember to bind the binder though! -- Remember to bind the binder though!
tick (CaseElim bndr) `thenSmpl_` ( tick (CaseElim bndr) `thenSmpl_` (
......
...@@ -702,7 +702,6 @@ sub setupOptimiseFlags { ...@@ -702,7 +702,6 @@ sub setupOptimiseFlags {
'-ffoldr-build-on', '-ffoldr-build-on',
'-fdo-eta-reduction', '-fdo-eta-reduction',
'-fdo-case-elim',
'-fdo-lambda-eta-expansion', '-fdo-lambda-eta-expansion',
'-fcase-of-case', '-fcase-of-case',
'-fcase-merge', '-fcase-merge',
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment