diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 454577d970af35090e71abcca66ac0edd5bb51b2..689ebd08f2be1d613a1d9d343946a3a97ad91809 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -347,7 +347,8 @@ data ForeignLabelSource pprDebugCLabel :: CLabel -> SDoc pprDebugCLabel lbl = case lbl of - IdLabel{} -> ppr lbl <> (parens $ text "IdLabel") + IdLabel _ _ info-> ppr lbl <> (parens $ text "IdLabel" + <> whenPprDebug (text ":" <> text (show info))) CmmLabel pkg _name _info -> ppr lbl <> (parens $ text "CmmLabel" <+> ppr pkg) @@ -387,7 +388,7 @@ data IdLabelInfo -- instead of a closure entry-point. -- See Note [Proc-point local block entry-point]. - deriving (Eq, Ord) + deriving (Eq, Ord, Show) data RtsLabelInfo