diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-01-05 19:58:05 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-01-11 19:43:22 -0500 |
| commit | 23d215fcb62c8bfe8d56396a0c9718a72ac0037b (patch) | |
| tree | 520a04b518f1898c7c6685679aafafbb8f1d5942 /compiler/GHC/CmmToC.hs | |
| parent | 49731fed69cb67ebaa3481b6ed5395ccd760c051 (diff) | |
| download | haskell-23d215fcb62c8bfe8d56396a0c9718a72ac0037b.tar.gz | |
warnPprTrace: pass separately the reason
This makes it more similar to pprTrace, pprPanic etc.
Diffstat (limited to 'compiler/GHC/CmmToC.hs')
| -rw-r--r-- | compiler/GHC/CmmToC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToC.hs b/compiler/GHC/CmmToC.hs index 26efd7a52b..743d27fc15 100644 --- a/compiler/GHC/CmmToC.hs +++ b/compiler/GHC/CmmToC.hs @@ -1113,7 +1113,7 @@ pprReg r = case r of pprAsPtrReg :: CmmReg -> SDoc pprAsPtrReg (CmmGlobal (VanillaReg n gcp)) - = warnPprTrace (gcp /= VGcPtr) (ppr n) $ char 'R' <> int n <> text ".p" + = warnPprTrace (gcp /= VGcPtr) "pprAsPtrReg" (ppr n) $ char 'R' <> int n <> text ".p" pprAsPtrReg other_reg = pprReg other_reg pprGlobalReg :: GlobalReg -> SDoc |