diff options
author | Ben Gamari <bgamari.foss@gmail.com> | 2015-09-25 12:51:01 +0200 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2015-09-25 12:51:10 +0200 |
commit | a98815a9f11ea467aa96033cb7839d2662a29efc (patch) | |
tree | 6f38dc432cb5feded5e1a0e72d479e0a7cbfaee0 | |
parent | fb4092642f057f258d07cd6979925f4e2579eda6 (diff) | |
download | haskell-a98815a9f11ea467aa96033cb7839d2662a29efc.tar.gz |
Dwarf: Rename binding to avoid shadowing ppr
Reviewers: austin
Reviewed By: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1221
-rw-r--r-- | compiler/nativeGen/Dwarf/Types.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/nativeGen/Dwarf/Types.hs b/compiler/nativeGen/Dwarf/Types.hs index 17fbf3bb95..846f8dc669 100644 --- a/compiler/nativeGen/Dwarf/Types.hs +++ b/compiler/nativeGen/Dwarf/Types.hs @@ -370,21 +370,21 @@ pprSetUnwind plat g (_, uw) pprUnwindExpr :: Bool -> UnwindExpr -> SDoc pprUnwindExpr spIsCFA expr = sdocWithPlatform $ \plat -> - let ppr (UwConst i) + let pprE (UwConst i) | i >= 0 && i < 32 = pprByte (dW_OP_lit0 + fromIntegral i) | otherwise = pprByte dW_OP_consts $$ pprLEBInt i -- lazy... - ppr (UwReg Sp i) | spIsCFA + pprE (UwReg Sp i) | spIsCFA = if i == 0 then pprByte dW_OP_call_frame_cfa else ppr (UwPlus (UwReg Sp 0) (UwConst i)) - ppr (UwReg g i) = pprByte (dW_OP_breg0+dwarfGlobalRegNo plat g) $$ + pprE (UwReg g i) = pprByte (dW_OP_breg0+dwarfGlobalRegNo plat g) $$ pprLEBInt i - ppr (UwDeref u) = ppr u $$ pprByte dW_OP_deref - ppr (UwPlus u1 u2) = ppr u1 $$ ppr u2 $$ pprByte dW_OP_plus - ppr (UwMinus u1 u2) = ppr u1 $$ ppr u2 $$ pprByte dW_OP_minus - ppr (UwTimes u1 u2) = ppr u1 $$ ppr u2 $$ pprByte dW_OP_mul + pprE (UwDeref u) = pprE u $$ pprByte dW_OP_deref + pprE (UwPlus u1 u2) = pprE u1 $$ pprE u2 $$ pprByte dW_OP_plus + pprE (UwMinus u1 u2) = pprE u1 $$ pprE u2 $$ pprByte dW_OP_minus + pprE (UwTimes u1 u2) = pprE u1 $$ pprE u2 $$ pprByte dW_OP_mul in ptext (sLit "\t.byte 1f-.-1") $$ - ppr expr $$ + pprE expr $$ ptext (sLit "1:") -- | Generate code for re-setting the unwind information for a |