projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make -fno-enable-rewrite-rules work properly
[ghc-hetmet.git]
/
compiler
/
simplCore
/
CoreMonad.lhs
diff --git
a/compiler/simplCore/CoreMonad.lhs
b/compiler/simplCore/CoreMonad.lhs
index
bb598c6
..
c527d82
100644
(file)
--- a/
compiler/simplCore/CoreMonad.lhs
+++ b/
compiler/simplCore/CoreMonad.lhs
@@
-401,7
+401,7
@@
getCoreToDo dflags
simpl_gently = CoreDoSimplify max_iter
(base_mode { sm_phase = InitialPhase
, sm_names = ["Gentle"]
simpl_gently = CoreDoSimplify max_iter
(base_mode { sm_phase = InitialPhase
, sm_names = ["Gentle"]
- , sm_rules = True -- Note [RULEs enabled in SimplGently]
+ , sm_rules = rules_on -- Note [RULEs enabled in SimplGently]
, sm_inline = False
, sm_case_case = False })
-- Don't do case-of-case transformations.
, sm_inline = False
, sm_case_case = False })
-- Don't do case-of-case transformations.
@@
-568,9
+568,6
@@
RULES are enabled when doing "gentle" simplification. Two reasons:
But watch out: list fusion can prevent floating. So use phase control
to switch off those rules until after floating.
But watch out: list fusion can prevent floating. So use phase control
to switch off those rules until after floating.
-Currently (Oct10) I think that sm_rules is always True, so we
-could remove it.
-
%************************************************************************
%* *
%************************************************************************
%* *