diff options
Diffstat (limited to 'compiler/nativeGen/SPARC/CodeGen/Sanity.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/Sanity.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/Sanity.hs b/compiler/nativeGen/SPARC/CodeGen/Sanity.hs index 78dbb1b493..7eb8bb4a53 100644 --- a/compiler/nativeGen/SPARC/CodeGen/Sanity.hs +++ b/compiler/nativeGen/SPARC/CodeGen/Sanity.hs @@ -22,17 +22,15 @@ import Instruction import OldCmm import Outputable -import Platform -- | Enforce intra-block invariants. -- -checkBlock :: Platform - -> CmmBasicBlock +checkBlock :: CmmBasicBlock -> NatBasicBlock Instr -> NatBasicBlock Instr -checkBlock platform cmm block@(BasicBlock _ instrs) +checkBlock cmm block@(BasicBlock _ instrs) | checkBlockInstrs instrs = block @@ -40,9 +38,9 @@ checkBlock platform cmm block@(BasicBlock _ instrs) = pprPanic ("SPARC.CodeGen: bad block\n") ( vcat [ text " -- cmm -----------------\n" - , pprPlatform platform cmm + , ppr cmm , text " -- native code ---------\n" - , pprPlatform platform block ]) + , ppr block ]) checkBlockInstrs :: [Instr] -> Bool |