summaryrefslogtreecommitdiff
path: root/compiler/GHC/CmmToAsm
diff options
context:
space:
mode:
authorAndreas Klebinger <klebinger.andreas@gmx.at>2021-03-31 15:31:19 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-04-09 03:31:02 -0400
commitc02ac1bbd2d882d58307fa3009aa2d9665399703 (patch)
tree0c5a038ca509a36e4b24ceca3643d65e63a7e533 /compiler/GHC/CmmToAsm
parent0bdb867e37bcfe4ae2c5c4f5f7e54b41acfe6116 (diff)
downloadhaskell-c02ac1bbd2d882d58307fa3009aa2d9665399703.tar.gz
Re-export GHC.Bits from GHC.Prelude with custom shift implementation.
This allows us to use the unsafe shifts in non-debug builds for performance. For older versions of base we instead export Data.Bits See also #19618
Diffstat (limited to 'compiler/GHC/CmmToAsm')
-rw-r--r--compiler/GHC/CmmToAsm/Dwarf/Types.hs1
-rw-r--r--compiler/GHC/CmmToAsm/PPC/CodeGen.hs1
-rw-r--r--compiler/GHC/CmmToAsm/PPC/Ppr.hs1
-rw-r--r--compiler/GHC/CmmToAsm/Ppr.hs1
-rw-r--r--compiler/GHC/CmmToAsm/Reg/Linear/PPC.hs1
-rw-r--r--compiler/GHC/CmmToAsm/Reg/Linear/SPARC.hs1
-rw-r--r--compiler/GHC/CmmToAsm/Reg/Linear/X86.hs1
-rw-r--r--compiler/GHC/CmmToAsm/Reg/Linear/X86_64.hs1
-rw-r--r--compiler/GHC/CmmToAsm/X86/CodeGen.hs1
-rw-r--r--compiler/GHC/CmmToAsm/X86/Ppr.hs1
10 files changed, 0 insertions, 10 deletions
diff --git a/compiler/GHC/CmmToAsm/Dwarf/Types.hs b/compiler/GHC/CmmToAsm/Dwarf/Types.hs
index cad6a63515..43d902d106 100644
--- a/compiler/GHC/CmmToAsm/Dwarf/Types.hs
+++ b/compiler/GHC/CmmToAsm/Dwarf/Types.hs
@@ -46,7 +46,6 @@ import GHC.CmmToAsm.Dwarf.Constants
import qualified Data.ByteString as BS
import qualified Control.Monad.Trans.State.Strict as S
import Control.Monad (zipWithM, join)
-import Data.Bits
import qualified Data.Map as Map
import Data.Word
import Data.Char
diff --git a/compiler/GHC/CmmToAsm/PPC/CodeGen.hs b/compiler/GHC/CmmToAsm/PPC/CodeGen.hs
index 0a78722c85..f1a411ab27 100644
--- a/compiler/GHC/CmmToAsm/PPC/CodeGen.hs
+++ b/compiler/GHC/CmmToAsm/PPC/CodeGen.hs
@@ -66,7 +66,6 @@ import GHC.Utils.Outputable
import GHC.Utils.Panic
import Control.Monad ( mapAndUnzipM, when )
-import Data.Bits
import Data.Word
import GHC.Types.Basic
diff --git a/compiler/GHC/CmmToAsm/PPC/Ppr.hs b/compiler/GHC/CmmToAsm/PPC/Ppr.hs
index 5f8ab214cb..7ed13b298f 100644
--- a/compiler/GHC/CmmToAsm/PPC/Ppr.hs
+++ b/compiler/GHC/CmmToAsm/PPC/Ppr.hs
@@ -44,7 +44,6 @@ import GHC.Utils.Panic
import Data.Word
import Data.Int
-import Data.Bits
-- -----------------------------------------------------------------------------
-- Printing this stuff out
diff --git a/compiler/GHC/CmmToAsm/Ppr.hs b/compiler/GHC/CmmToAsm/Ppr.hs
index 8fba238cd1..dd656a9906 100644
--- a/compiler/GHC/CmmToAsm/Ppr.hs
+++ b/compiler/GHC/CmmToAsm/Ppr.hs
@@ -35,7 +35,6 @@ import Data.Array.ST
import Control.Monad.ST
import Data.Word
-import Data.Bits
import Data.ByteString (ByteString)
import qualified Data.ByteString as BS
import GHC.Exts
diff --git a/compiler/GHC/CmmToAsm/Reg/Linear/PPC.hs b/compiler/GHC/CmmToAsm/Reg/Linear/PPC.hs
index fc9f9c0f89..e6c6015540 100644
--- a/compiler/GHC/CmmToAsm/Reg/Linear/PPC.hs
+++ b/compiler/GHC/CmmToAsm/Reg/Linear/PPC.hs
@@ -12,7 +12,6 @@ import GHC.Utils.Panic
import GHC.Platform
import Data.Word
-import Data.Bits
-- The PowerPC has 32 integer and 32 floating point registers.
-- This is 32bit PowerPC, so Word64 is inefficient - two Word32s are much
diff --git a/compiler/GHC/CmmToAsm/Reg/Linear/SPARC.hs b/compiler/GHC/CmmToAsm/Reg/Linear/SPARC.hs
index a2a0ee73f9..31e9a9dca0 100644
--- a/compiler/GHC/CmmToAsm/Reg/Linear/SPARC.hs
+++ b/compiler/GHC/CmmToAsm/Reg/Linear/SPARC.hs
@@ -15,7 +15,6 @@ import GHC.Utils.Panic
import GHC.Platform
import Data.Word
-import Data.Bits
--------------------------------------------------------------------------------
diff --git a/compiler/GHC/CmmToAsm/Reg/Linear/X86.hs b/compiler/GHC/CmmToAsm/Reg/Linear/X86.hs
index 42f63b5752..ba9b9cc966 100644
--- a/compiler/GHC/CmmToAsm/Reg/Linear/X86.hs
+++ b/compiler/GHC/CmmToAsm/Reg/Linear/X86.hs
@@ -13,7 +13,6 @@ import GHC.Platform
import GHC.Utils.Outputable
import Data.Word
-import Data.Bits
newtype FreeRegs = FreeRegs Word32
deriving (Show,Outputable)
diff --git a/compiler/GHC/CmmToAsm/Reg/Linear/X86_64.hs b/compiler/GHC/CmmToAsm/Reg/Linear/X86_64.hs
index 44eea342a4..801b7be146 100644
--- a/compiler/GHC/CmmToAsm/Reg/Linear/X86_64.hs
+++ b/compiler/GHC/CmmToAsm/Reg/Linear/X86_64.hs
@@ -13,7 +13,6 @@ import GHC.Platform
import GHC.Utils.Outputable
import Data.Word
-import Data.Bits
newtype FreeRegs = FreeRegs Word64
deriving (Show,Outputable)
diff --git a/compiler/GHC/CmmToAsm/X86/CodeGen.hs b/compiler/GHC/CmmToAsm/X86/CodeGen.hs
index 878f3387fb..7b803b2708 100644
--- a/compiler/GHC/CmmToAsm/X86/CodeGen.hs
+++ b/compiler/GHC/CmmToAsm/X86/CodeGen.hs
@@ -86,7 +86,6 @@ import GHC.Utils.Misc
import GHC.Types.Unique.Supply ( getUniqueM )
import Control.Monad
-import Data.Bits
import Data.Foldable (fold)
import Data.Int
import Data.Maybe
diff --git a/compiler/GHC/CmmToAsm/X86/Ppr.hs b/compiler/GHC/CmmToAsm/X86/Ppr.hs
index 97abf78006..2d12e90443 100644
--- a/compiler/GHC/CmmToAsm/X86/Ppr.hs
+++ b/compiler/GHC/CmmToAsm/X86/Ppr.hs
@@ -50,7 +50,6 @@ import GHC.Utils.Outputable
import GHC.Utils.Panic
import Data.Word
-import Data.Bits
-- -----------------------------------------------------------------------------
-- Printing this stuff out
View Lorry Controller Status