summaryrefslogtreecommitdiff
path: root/compiler/GHC/CmmToC.hs
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2021-05-06 22:22:02 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-05-12 21:41:44 -0400
commit0ef119071347f7bc14f0fa89904b0cfd0b230ac1 (patch)
tree7a80b3942ae6bd18391f9b924ad55bb001392288 /compiler/GHC/CmmToC.hs
parentbfabf94f63b6644bd32982fd13ea0c8bca9aeae4 (diff)
downloadhaskell-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.hs4
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