[commit: ghc] master: CLabel: More specific debug output from CLabel (66c1c8e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/66c1c8e0054fce9efaf4fc22afdd1ec40945e1c3/ghc

>---------------------------------------------------------------

commit 66c1c8e0054fce9efaf4fc22afdd1ec40945e1c3
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Tue Nov 28 14:23:02 2017 -0500

    CLabel: More specific debug output from CLabel


>---------------------------------------------------------------

66c1c8e0054fce9efaf4fc22afdd1ec40945e1c3
 compiler/cmm/CLabel.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index 454577d..689ebd0 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