diff options
| -rw-r--r-- | compiler/cmm/PprCmmDecl.hs | 16 | ||||
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen.hs | 2 | ||||
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 2 |
3 files changed, 10 insertions, 10 deletions
diff --git a/compiler/cmm/PprCmmDecl.hs b/compiler/cmm/PprCmmDecl.hs index 0b22e5369a..218e37cc66 100644 --- a/compiler/cmm/PprCmmDecl.hs +++ b/compiler/cmm/PprCmmDecl.hs @@ -75,7 +75,7 @@ writeCmms dflags handle cmms = printForC dflags handle (pprCmms cmms) instance (Outputable d, Outputable info, Outputable i) => Outputable (GenCmmDecl d info i) where - ppr t = sdocWithPlatform $ \platform -> pprTop platform t + ppr t = pprTop t instance Outputable CmmStatics where ppr x = sdocWithPlatform $ \platform -> pprStatics platform x @@ -90,19 +90,19 @@ instance Outputable CmmInfoTable where ----------------------------------------------------------------------------- pprCmmGroup :: (Outputable d, Outputable info, Outputable g) - => Platform -> GenCmmGroup d info g -> SDoc -pprCmmGroup platform tops - = vcat $ intersperse blankLine $ map (pprTop platform) tops + => GenCmmGroup d info g -> SDoc +pprCmmGroup tops + = vcat $ intersperse blankLine $ map pprTop tops -- -------------------------------------------------------------------------- -- Top level `procedure' blocks. -- pprTop :: (Outputable d, Outputable info, Outputable i) - => Platform -> GenCmmDecl d info i -> SDoc + => GenCmmDecl d info i -> SDoc -pprTop platform (CmmProc info lbl graph) +pprTop (CmmProc info lbl graph) - = vcat [ pprCLabel platform lbl <> lparen <> rparen + = vcat [ ppr lbl <> lparen <> rparen , nest 8 $ lbrace <+> ppr info $$ rbrace , nest 4 $ ppr graph , rbrace ] @@ -112,7 +112,7 @@ pprTop platform (CmmProc info lbl graph) -- -- section "data" { ... } -- -pprTop _ (CmmData section ds) = +pprTop (CmmData section ds) = (hang (pprSection section <+> lbrace) 4 (ppr ds)) $$ rbrace diff --git a/compiler/llvmGen/LlvmCodeGen.hs b/compiler/llvmGen/LlvmCodeGen.hs index 00ff35d2ce..4465957de4 100644 --- a/compiler/llvmGen/LlvmCodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen.hs @@ -134,7 +134,7 @@ cmmLlvmGen dflags us env cmm = do fixStgRegisters cmm dumpIfSet_dyn dflags Opt_D_dump_opt_cmm "Optimised Cmm" - (pprCmmGroup (targetPlatform dflags) [fixed_cmm]) + (pprCmmGroup [fixed_cmm]) -- generate llvm code from cmm let ((env', llvmBC), usGen) = {-# SCC "llvm_proc_gen" #-} diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index f3f7e71b14..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) = |