diff options
Diffstat (limited to 'compiler/cmm/BlockId.hs')
-rw-r--r-- | compiler/cmm/BlockId.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/cmm/BlockId.hs b/compiler/cmm/BlockId.hs index feeacb553d..d5a8e045bf 100644 --- a/compiler/cmm/BlockId.hs +++ b/compiler/cmm/BlockId.hs @@ -31,15 +31,9 @@ compilation unit in which it appears. type BlockId = Hoopl.Label -instance Uniquable BlockId where - getUnique label = getUnique (uniqueToInt $ lblToUnique label) - mkBlockId :: Unique -> BlockId mkBlockId unique = uniqueToLbl $ intToUnique $ getKey unique -instance Outputable BlockId where - ppr label = ppr (getUnique label) - retPtLbl :: BlockId -> CLabel retPtLbl label = mkReturnPtLabel $ getUnique label |