summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Trommler <ptrommler@acm.org>2022-04-10 08:43:39 +0200
committerPeter Trommler <ptrommler@acm.org>2022-04-10 09:00:48 +0200
commit84a8deca1bfe1b378f6653f089a3d0c0d3c79f71 (patch)
tree25144fdd59899a114b3da5a33a0619e3f37cc297
parent59c93f28492cf10840b2ea08dca3f88a2535e70b (diff)
downloadhaskell-wip/T21225.tar.gz
Remove redundant imports and pragmaswip/T21225
-rw-r--r--compiler/GHC/CmmToAsm/Ppr.hs12
1 files changed, 0 insertions, 12 deletions
diff --git a/compiler/GHC/CmmToAsm/Ppr.hs b/compiler/GHC/CmmToAsm/Ppr.hs
index d1a842ac92..7ad531acf5 100644
--- a/compiler/GHC/CmmToAsm/Ppr.hs
+++ b/compiler/GHC/CmmToAsm/Ppr.hs
@@ -1,6 +1,3 @@
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE MagicHash #-}
-
-----------------------------------------------------------------------------
--
-- Pretty-printing assembly language
@@ -26,7 +23,6 @@ import GHC.Cmm.CLabel
import GHC.Cmm
import GHC.CmmToAsm.Config
import GHC.Utils.Outputable as SDoc
-import qualified GHC.Utils.Ppr as Pretty
import GHC.Utils.Panic
import GHC.Utils.Misc ( charToC )
import GHC.Platform
@@ -38,14 +34,6 @@ import Control.Monad.ST
import Data.Word
import Data.ByteString (ByteString)
import qualified Data.ByteString as BS
-import GHC.Exts
-import GHC.Word
-
-#if !MIN_VERSION_base(4,16,0)
-word8ToWord# :: Word# -> Word#
-word8ToWord# w = w
-{-# INLINE word8ToWord# #-}
-#endif
-- -----------------------------------------------------------------------------
-- Converting floating-point literals to integrals for printing