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
    ... ... @@ -424,15 +424,15 @@ pprVariables = entry (text "variables:") .
    424 424
     
    
    425 425
     -- | […]
    
    426 426
     pprVariable :: Maybe (IfaceIdBndr, Word) -> SDoc
    
    427
    -pprVariable = maybe (text "<unknown>") (uncurry pprKnown) where
    
    428
    -
    
    429
    -    pprKnown :: IfaceIdBndr -> Word -> SDoc
    
    430
    -    pprKnown binder offset = pprVariableBinder binder   <+>
    
    431
    -                             text "@"                   <+>
    
    432
    -                             pprFixedSizeNatural offset
    
    433
    -    -- That the second argument is an offset is apparent from the use of the
    
    434
    -    -- identifier @offset@ in the implementation of
    
    435
    -    -- 'GHC.StgToByteCode.dehydrateCgBreakInfo'.
    
    427
    +pprVariable = maybe (text "<unknown>") (uncurry pprKnownVariable)
    
    428
    +
    
    429
    +pprKnownVariable :: IfaceIdBndr -> Word -> SDoc
    
    430
    +pprKnownVariable binder offset = pprVariableBinder binder   <+>
    
    431
    +                                 text "@"                   <+>
    
    432
    +                                 pprFixedSizeNatural offset
    
    433
    +-- That the second argument is an offset is apparent from the use of the
    
    434
    +-- identifier @offset@ in the implementation of
    
    435
    +-- 'GHC.StgToByteCode.dehydrateCgBreakInfo'.
    
    436 436
     
    
    437 437
     -- | […]
    
    438 438
     pprVariableBinder :: IfaceIdBndr -> SDoc