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
    ... ... @@ -174,7 +174,7 @@ pprLiteral :: Module -> BCONPtr -> SDoc
    174 174
     pprLiteral currentModule literal = case literal of
    
    175 175
         BCONPtrWord word
    
    176 176
             -> text "word" <+>
    
    177
    -           pprFixedSizeNatural word
    
    177
    +           ppr word
    
    178 178
         BCONPtrLbl label
    
    179 179
             -> text "label" <+>
    
    180 180
                ppr label
    
    ... ... @@ -421,9 +421,9 @@ pprVariable :: Maybe (IfaceIdBndr, Word) -> SDoc
    421 421
     pprVariable = maybe (text "<unknown>") (uncurry pprKnownVariable)
    
    422 422
     
    
    423 423
     pprKnownVariable :: IfaceIdBndr -> Word -> SDoc
    
    424
    -pprKnownVariable binder offset = pprVariableBinder binder   <+>
    
    425
    -                                 text "@"                   <+>
    
    426
    -                                 pprFixedSizeNatural offset
    
    424
    +pprKnownVariable binder offset = pprVariableBinder binder <+>
    
    425
    +                                 text "@"                 <+>
    
    426
    +                                 ppr offset
    
    427 427
     -- That the second argument is an offset is apparent from the use of the
    
    428 428
     -- identifier @offset@ in the implementation of
    
    429 429
     -- 'GHC.StgToByteCode.dehydrateCgBreakInfo'.