diff options
Diffstat (limited to 'compiler/nativeGen/SPARC/ShortcutJump.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/ShortcutJump.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/nativeGen/SPARC/ShortcutJump.hs b/compiler/nativeGen/SPARC/ShortcutJump.hs index 83e366cb04..e2a8a71572 100644 --- a/compiler/nativeGen/SPARC/ShortcutJump.hs +++ b/compiler/nativeGen/SPARC/ShortcutJump.hs @@ -18,12 +18,17 @@ import BlockId import Cmm import Panic - +import Outputable data JumpDest = DestBlockId BlockId | DestImm Imm +-- Debug Instance +instance Outputable JumpDest where + ppr (DestBlockId bid) = text "blk:" <> ppr bid + ppr (DestImm _bid) = text "imm:?" + getJumpDestBlockId :: JumpDest -> Maybe BlockId getJumpDestBlockId (DestBlockId bid) = Just bid getJumpDestBlockId _ = Nothing |