diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2021-05-06 22:22:02 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-12 21:41:44 -0400 |
commit | 0ef119071347f7bc14f0fa89904b0cfd0b230ac1 (patch) | |
tree | 7a80b3942ae6bd18391f9b924ad55bb001392288 /compiler/GHC/CmmToC.hs | |
parent | bfabf94f63b6644bd32982fd13ea0c8bca9aeae4 (diff) | |
download | haskell-0ef119071347f7bc14f0fa89904b0cfd0b230ac1.tar.gz |
Fully remove HsVersions.h
Replace uses of WARN macro with calls to:
warnPprTrace :: Bool -> SDoc -> a -> a
Remove the now unused HsVersions.h
Bump haddock submodule
Diffstat (limited to 'compiler/GHC/CmmToC.hs')
-rw-r--r-- | compiler/GHC/CmmToC.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToC.hs b/compiler/GHC/CmmToC.hs index 9b8832ff80..59d1203367 100644 --- a/compiler/GHC/CmmToC.hs +++ b/compiler/GHC/CmmToC.hs @@ -26,8 +26,6 @@ module GHC.CmmToC ) where -#include "HsVersions.h" - -- Cmm stuff import GHC.Prelude @@ -973,7 +971,7 @@ pprReg r = case r of pprAsPtrReg :: CmmReg -> SDoc pprAsPtrReg (CmmGlobal (VanillaReg n gcp)) - = WARN( gcp /= VGcPtr, ppr n ) char 'R' <> int n <> text ".p" + = warnPprTrace (gcp /= VGcPtr) (ppr n) $ char 'R' <> int n <> text ".p" pprAsPtrReg other_reg = pprReg other_reg pprGlobalReg :: GlobalReg -> SDoc |