Wolfgang Jeltsch pushed to branch wip/jeltsch/textual-bytecode-output at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/ByteCode/Show.hs
    ... ... @@ -254,8 +254,7 @@ pprDataConstructorInfoTable dataConstrName ConInfoTable {..}
    254 254
           vcat [
    
    255 255
                    pprTablePositioning    $ conItblTablesNextToCode,
    
    256 256
                    pprPointerWordCount    $ conItblPtrs,
    
    257
    -               pprNonPointerWordCount $ conItblNPtrs,
    
    258
    -               pprDescription         $ conItblDescr
    
    257
    +               pprNonPointerWordCount $ conItblNPtrs
    
    259 258
                ]
    
    260 259
     
    
    261 260
     -- | […]
    
    ... ... @@ -270,12 +269,6 @@ pprPointerWordCount = entry (text "number of words for pointers:") . ppr
    270 269
     pprNonPointerWordCount :: Int -> SDoc
    
    271 270
     pprNonPointerWordCount = entry (text "number of words for non-pointers:") . ppr
    
    272 271
     
    
    273
    --- | […]
    
    274
    -pprDescription :: ByteString -> SDoc
    
    275
    -pprDescription = entry (text "description:") .
    
    276
    -                 text                        .
    
    277
    -                 utf8DecodeByteString
    
    278
    -
    
    279 272
     -- | […]
    
    280 273
     pprTopLevelStrings :: [(Name, ByteString)] -> SDoc
    
    281 274
     pprTopLevelStrings = entry (text "top-level strings:") .