Commit 66c1c8e0 authored by Ben Gamari's avatar Ben Gamari 🐢

CLabel: More specific debug output from CLabel

parent 7dc82d64
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment