Commit 06b8b973 authored by Simon Marlow's avatar Simon Marlow

re-enable constant folding in the NCG, while cmmRewriteAssignments is off

parent 1e07bd74
...@@ -948,7 +948,8 @@ cmmExprConFold referenceKind expr = do ...@@ -948,7 +948,8 @@ cmmExprConFold referenceKind expr = do
dflags <- getDynFlags dflags <- getDynFlags
-- Skip constant folding if new code generator is running -- Skip constant folding if new code generator is running
-- (this optimization is done in Hoopl) -- (this optimization is done in Hoopl)
let expr' = if dopt Opt_TryNewCodeGen dflags -- SDM: re-enabled for now, while cmmRewriteAssignments is turned off
let expr' = if False -- dopt Opt_TryNewCodeGen dflags
then expr then expr
else cmmExprCon (targetPlatform dflags) expr else cmmExprCon (targetPlatform dflags) expr
cmmExprNative referenceKind expr' cmmExprNative referenceKind expr'
......
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