diff options
Diffstat (limited to 'compiler/nativeGen/PPC/RegInfo.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/RegInfo.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/nativeGen/PPC/RegInfo.hs b/compiler/nativeGen/PPC/RegInfo.hs index 30a07b9440..c369cac179 100644 --- a/compiler/nativeGen/PPC/RegInfo.hs +++ b/compiler/nativeGen/PPC/RegInfo.hs @@ -29,9 +29,14 @@ import Cmm import CLabel import Unique +import Outputable (ppr, text, Outputable, (<>)) data JumpDest = DestBlockId BlockId +-- Debug Instance +instance Outputable JumpDest where + ppr (DestBlockId bid) = text "jd<blk>:" <> ppr bid + getJumpDestBlockId :: JumpDest -> Maybe BlockId getJumpDestBlockId (DestBlockId bid) = Just bid |