diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-03-15 13:18:13 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-03-15 13:25:16 +0000 |
| commit | ef81d86fc5006b71c235b7c249164a8aa3dadde7 (patch) | |
| tree | d630ef520f77b07c72df33266f6025dffccd8875 /compiler/cmm/BlockId.hs | |
| parent | 6401a2ba5bf951e46474f39138c12055788125fc (diff) | |
| download | haskell-ef81d86fc5006b71c235b7c249164a8aa3dadde7.tar.gz | |
BlockId == Int now
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 |