diff options
Diffstat (limited to 'compiler/GHC/ByteCode/Instr.hs')
| -rw-r--r-- | compiler/GHC/ByteCode/Instr.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/GHC/ByteCode/Instr.hs b/compiler/GHC/ByteCode/Instr.hs index e4c3de7913..aecc7c9181 100644 --- a/compiler/GHC/ByteCode/Instr.hs +++ b/compiler/GHC/ByteCode/Instr.hs @@ -6,7 +6,7 @@ -- | Bytecode instruction definitions module GHC.ByteCode.Instr ( - BCInstr(..), ProtoBCO(..), bciStackUse, + BCInstr(..), ProtoBCO(..), bciStackUse, LocalLabel(..) ) where #include "HsVersions.h" @@ -50,7 +50,11 @@ data ProtoBCO a protoBCOFFIs :: [FFIInfo] } -type LocalLabel = Word16 +newtype LocalLabel = LocalLabel { getLocalLabel :: Word16 } + deriving (Eq, Ord) + +instance Outputable LocalLabel where + ppr (LocalLabel lbl) = text "lbl:" <> ppr lbl data BCInstr -- Messing with the stack |