diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-11-28 14:23:02 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-28 15:49:55 -0500 |
| commit | 66c1c8e0054fce9efaf4fc22afdd1ec40945e1c3 (patch) | |
| tree | 23ca314a4c46c109346bb4abd9dcb8c1c96e84a0 /compiler/cmm/CLabel.hs | |
| parent | 7dc82d64014a4c5d87095537c20729da7cc65137 (diff) | |
| download | haskell-66c1c8e0054fce9efaf4fc22afdd1ec40945e1c3.tar.gz | |
CLabel: More specific debug output from CLabel
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 454577d970..689ebd08f2 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 |