-- * Primitive operations
module GHC.Prim,
shiftL#, shiftRL#, iShiftL#, iShiftRA#, iShiftRL#,
+ uncheckedShiftL64#, uncheckedShiftRL64#,
+ uncheckedIShiftL64#, uncheckedIShiftRA64#,
-- * Fusion
build, augment,
import GHC.Prim
import GHC.Base
import GHC.Word
+import GHC.Int
import GHC.Num
import GHC.Float
import GHC.Ptr
-- #hide
module GHC.Int (
- Int8(..), Int16(..), Int32(..), Int64(..))
- where
+ Int8(..), Int16(..), Int32(..), Int64(..),
+ uncheckedIShiftL64#, uncheckedIShiftRA64#
+ ) where
import Data.Bits
import GHC.Real
import GHC.Read
import GHC.Arr
-import GHC.Word
+import GHC.Word hiding (uncheckedShiftL64#, uncheckedShiftRL64#)
import GHC.Show
------------------------------------------------------------------------
"fromIntegral/Int64->a" fromIntegral = \(I64# x#) -> fromIntegral (I# x#)
#-}
+uncheckedIShiftL64# = uncheckedIShiftL#
+uncheckedIShiftRA64# = uncheckedIShiftRA#
#endif
instance Real Int64 where
-- #hide
module GHC.Word (
Word(..), Word8(..), Word16(..), Word32(..), Word64(..),
- toEnumError, fromEnumError, succError, predError)
- where
+ toEnumError, fromEnumError, succError, predError,
+ uncheckedShiftL64#,
+ uncheckedShiftRL64#
+ ) where
import Data.Bits
"fromIntegral/Word64->a" fromIntegral = \(W64# x#) -> fromIntegral (W# x#)
#-}
+uncheckedShiftL64# = uncheckedShiftL#
+uncheckedShiftRL64# = uncheckedShiftRL#
+
#endif
instance Show Word64 where