diff options
Diffstat (limited to 'compiler/nativeGen/AsmCodeGen.lhs')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 86f82f7f9a..51adf46005 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -360,7 +360,7 @@ cmmNativeGen dflags ncgImpl us cmm count dumpIfSet_dyn dflags Opt_D_dump_opt_cmm "Optimised Cmm" - (pprCmmGroup platform [opt_cmm]) + (pprCmmGroup [opt_cmm]) -- generate native code from cmm let ((native, lastMinuteImports), usGen) = @@ -891,11 +891,10 @@ cmmStmtConFold stmt CmmCondBranch test dest -> do test' <- cmmExprConFold DataReference test dflags <- getDynFlags - let platform = targetPlatform dflags return $ case test' of CmmLit (CmmInt 0 _) -> CmmComment (mkFastString ("deleted: " ++ - showSDoc dflags (pprStmt platform stmt))) + showSDoc dflags (pprStmt stmt))) CmmLit (CmmInt _ _) -> CmmBranch dest _other -> CmmCondBranch test' dest |