diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index b818b012c7bd6505bf6e49bd2c4e81fbd9295d6f..a8fd604cc1c9a6fc76d1aae9f7be0484e8c93134 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -948,7 +948,8 @@ cmmExprConFold referenceKind expr = do dflags <- getDynFlags -- Skip constant folding if new code generator is running -- (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 else cmmExprCon (targetPlatform dflags) expr cmmExprNative referenceKind expr'