X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FWord.hs;h=022a85e6e112070178a040b0f1585446426bddb8;hb=719e2b47e2771c36c0e452a919420178ba474d94;hp=0d0c60bce2527fa7062c80fec09d75ef270700bc;hpb=4aa4c78edf3cf4607ddeb669f536d646395ae9f0;p=ghc-base.git diff --git a/GHC/Word.hs b/GHC/Word.hs index 0d0c60b..022a85e 100644 --- a/GHC/Word.hs +++ b/GHC/Word.hs @@ -1,4 +1,4 @@ -{-# OPTIONS -fno-implicit-prelude #-} +{-# OPTIONS_GHC -fno-implicit-prelude #-} ----------------------------------------------------------------------------- -- | -- Module : GHC.Word @@ -16,13 +16,15 @@ #include "MachDeps.h" +-- #hide module GHC.Word ( Word(..), Word8(..), Word16(..), Word32(..), Word64(..), - divZeroError, toEnumError, fromEnumError, succError, predError) + toEnumError, fromEnumError, succError, predError) where import Data.Bits +import {-# SOURCE #-} GHC.Err import GHC.Base import GHC.Enum import GHC.Num @@ -35,11 +37,6 @@ import GHC.Show -- Helper functions ------------------------------------------------------------------------ -{-# NOINLINE divZeroError #-} -divZeroError :: (Show a) => String -> a -> b -divZeroError meth x = - error $ "Integral." ++ meth ++ ": divide by 0 (" ++ show x ++ " / 0)" - {-# NOINLINE toEnumError #-} toEnumError :: (Show a) => String -> Int -> (a,a) -> b toEnumError inst_ty i bnds = @@ -73,9 +70,6 @@ predError inst_ty = -- |A 'Word' is an unsigned integral type, with the same size as 'Int'. data Word = W# Word# deriving (Eq, Ord) -instance CCallable Word -instance CReturnable Word - instance Show Word where showsPrec p x = showsPrec p (toInteger x) @@ -115,22 +109,22 @@ instance Enum Word where instance Integral Word where quot x@(W# x#) y@(W# y#) | y /= 0 = W# (x# `quotWord#` y#) - | otherwise = divZeroError "quot{Word}" x + | otherwise = divZeroError rem x@(W# x#) y@(W# y#) | y /= 0 = W# (x# `remWord#` y#) - | otherwise = divZeroError "rem{Word}" x + | otherwise = divZeroError div x@(W# x#) y@(W# y#) | y /= 0 = W# (x# `quotWord#` y#) - | otherwise = divZeroError "div{Word}" x + | otherwise = divZeroError mod x@(W# x#) y@(W# y#) | y /= 0 = W# (x# `remWord#` y#) - | otherwise = divZeroError "mod{Word}" x + | otherwise = divZeroError quotRem x@(W# x#) y@(W# y#) | y /= 0 = (W# (x# `quotWord#` y#), W# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word}" x + | otherwise = divZeroError divMod x@(W# x#) y@(W# y#) | y /= 0 = (W# (x# `quotWord#` y#), W# (x# `remWord#` y#)) - | otherwise = divZeroError "divMod{Word}" x + | otherwise = divZeroError toInteger (W# x#) | i# >=# 0# = S# i# | otherwise = case word2Integer# x# of (# s, d #) -> J# s d @@ -139,12 +133,15 @@ instance Integral Word where instance Bounded Word where minBound = 0 + + -- use unboxed literals for maxBound, because GHC doesn't optimise + -- (fromInteger 0xffffffff :: Word). #if WORD_SIZE_IN_BITS == 31 - maxBound = 0x7FFFFFFF + maxBound = W# (int2Word# 0x7FFFFFFF#) #elif WORD_SIZE_IN_BITS == 32 - maxBound = 0xFFFFFFFF + maxBound = W# (int2Word# 0xFFFFFFFF#) #else - maxBound = 0xFFFFFFFFFFFFFFFF + maxBound = W# (int2Word# 0xFFFFFFFFFFFFFFFF#) #endif instance Ix Word where @@ -189,9 +186,6 @@ instance Bits Word where data Word8 = W8# Word# deriving (Eq, Ord) -- ^ 8-bit unsigned integer type -instance CCallable Word8 -instance CReturnable Word8 - instance Show Word8 where showsPrec p x = showsPrec p (fromIntegral x :: Int) @@ -227,22 +221,22 @@ instance Enum Word8 where instance Integral Word8 where quot x@(W8# x#) y@(W8# y#) | y /= 0 = W8# (x# `quotWord#` y#) - | otherwise = divZeroError "quot{Word8}" x + | otherwise = divZeroError rem x@(W8# x#) y@(W8# y#) | y /= 0 = W8# (x# `remWord#` y#) - | otherwise = divZeroError "rem{Word8}" x + | otherwise = divZeroError div x@(W8# x#) y@(W8# y#) | y /= 0 = W8# (x# `quotWord#` y#) - | otherwise = divZeroError "div{Word8}" x + | otherwise = divZeroError mod x@(W8# x#) y@(W8# y#) | y /= 0 = W8# (x# `remWord#` y#) - | otherwise = divZeroError "mod{Word8}" x + | otherwise = divZeroError quotRem x@(W8# x#) y@(W8# y#) | y /= 0 = (W8# (x# `quotWord#` y#), W8# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word8}" x + | otherwise = divZeroError divMod x@(W8# x#) y@(W8# y#) | y /= 0 = (W8# (x# `quotWord#` y#), W8# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word8}" x + | otherwise = divZeroError toInteger (W8# x#) = S# (word2Int# x#) instance Bounded Word8 where @@ -292,9 +286,6 @@ instance Bits Word8 where data Word16 = W16# Word# deriving (Eq, Ord) -- ^ 16-bit unsigned integer type -instance CCallable Word16 -instance CReturnable Word16 - instance Show Word16 where showsPrec p x = showsPrec p (fromIntegral x :: Int) @@ -330,22 +321,22 @@ instance Enum Word16 where instance Integral Word16 where quot x@(W16# x#) y@(W16# y#) | y /= 0 = W16# (x# `quotWord#` y#) - | otherwise = divZeroError "quot{Word16}" x + | otherwise = divZeroError rem x@(W16# x#) y@(W16# y#) | y /= 0 = W16# (x# `remWord#` y#) - | otherwise = divZeroError "rem{Word16}" x + | otherwise = divZeroError div x@(W16# x#) y@(W16# y#) | y /= 0 = W16# (x# `quotWord#` y#) - | otherwise = divZeroError "div{Word16}" x + | otherwise = divZeroError mod x@(W16# x#) y@(W16# y#) | y /= 0 = W16# (x# `remWord#` y#) - | otherwise = divZeroError "mod{Word16}" x + | otherwise = divZeroError quotRem x@(W16# x#) y@(W16# y#) | y /= 0 = (W16# (x# `quotWord#` y#), W16# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word16}" x + | otherwise = divZeroError divMod x@(W16# x#) y@(W16# y#) | y /= 0 = (W16# (x# `quotWord#` y#), W16# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word16}" x + | otherwise = divZeroError toInteger (W16# x#) = S# (word2Int# x#) instance Bounded Word16 where @@ -438,22 +429,22 @@ instance Enum Word32 where instance Integral Word32 where quot x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `quotWord32#` y#) - | otherwise = divZeroError "quot{Word32}" x + | otherwise = divZeroError rem x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `remWord32#` y#) - | otherwise = divZeroError "rem{Word32}" x + | otherwise = divZeroError div x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `quotWord32#` y#) - | otherwise = divZeroError "div{Word32}" x + | otherwise = divZeroError mod x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `remWord32#` y#) - | otherwise = divZeroError "mod{Word32}" x + | otherwise = divZeroError quotRem x@(W32# x#) y@(W32# y#) | y /= 0 = (W32# (x# `quotWord32#` y#), W32# (x# `remWord32#` y#)) - | otherwise = divZeroError "quotRem{Word32}" x + | otherwise = divZeroError divMod x@(W32# x#) y@(W32# y#) | y /= 0 = (W32# (x# `quotWord32#` y#), W32# (x# `remWord32#` y#)) - | otherwise = divZeroError "quotRem{Word32}" x + | otherwise = divZeroError toInteger x@(W32# x#) | x <= fromIntegral (maxBound::Int) = S# (word2Int# (word32ToWord# x#)) | otherwise = case word32ToInteger# x# of (# s, d #) -> J# s d @@ -561,22 +552,22 @@ instance Enum Word32 where instance Integral Word32 where quot x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `quotWord#` y#) - | otherwise = divZeroError "quot{Word32}" x + | otherwise = divZeroError rem x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `remWord#` y#) - | otherwise = divZeroError "rem{Word32}" x + | otherwise = divZeroError div x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `quotWord#` y#) - | otherwise = divZeroError "div{Word32}" x + | otherwise = divZeroError mod x@(W32# x#) y@(W32# y#) | y /= 0 = W32# (x# `remWord#` y#) - | otherwise = divZeroError "mod{Word32}" x + | otherwise = divZeroError quotRem x@(W32# x#) y@(W32# y#) | y /= 0 = (W32# (x# `quotWord#` y#), W32# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word32}" x + | otherwise = divZeroError divMod x@(W32# x#) y@(W32# y#) | y /= 0 = (W32# (x# `quotWord#` y#), W32# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word32}" x + | otherwise = divZeroError toInteger (W32# x#) #if WORD_SIZE_IN_BITS == 32 | i# >=# 0# = S# i# @@ -615,9 +606,6 @@ instance Bits Word32 where #endif -instance CCallable Word32 -instance CReturnable Word32 - instance Show Word32 where #if WORD_SIZE_IN_BITS < 33 showsPrec p x = showsPrec p (toInteger x) @@ -698,22 +686,22 @@ instance Enum Word64 where instance Integral Word64 where quot x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `quotWord64#` y#) - | otherwise = divZeroError "quot{Word64}" x + | otherwise = divZeroError rem x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `remWord64#` y#) - | otherwise = divZeroError "rem{Word64}" x + | otherwise = divZeroError div x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `quotWord64#` y#) - | otherwise = divZeroError "div{Word64}" x + | otherwise = divZeroError mod x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `remWord64#` y#) - | otherwise = divZeroError "mod{Word64}" x + | otherwise = divZeroError quotRem x@(W64# x#) y@(W64# y#) | y /= 0 = (W64# (x# `quotWord64#` y#), W64# (x# `remWord64#` y#)) - | otherwise = divZeroError "quotRem{Word64}" x + | otherwise = divZeroError divMod x@(W64# x#) y@(W64# y#) | y /= 0 = (W64# (x# `quotWord64#` y#), W64# (x# `remWord64#` y#)) - | otherwise = divZeroError "quotRem{Word64}" x + | otherwise = divZeroError toInteger x@(W64# x#) | x <= 0x7FFFFFFF = S# (word2Int# (word64ToWord# x#)) | otherwise = case word64ToInteger# x# of (# s, d #) -> J# s d @@ -826,22 +814,22 @@ instance Enum Word64 where instance Integral Word64 where quot x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `quotWord#` y#) - | otherwise = divZeroError "quot{Word64}" x + | otherwise = divZeroError rem x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `remWord#` y#) - | otherwise = divZeroError "rem{Word64}" x + | otherwise = divZeroError div x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `quotWord#` y#) - | otherwise = divZeroError "div{Word64}" x + | otherwise = divZeroError mod x@(W64# x#) y@(W64# y#) | y /= 0 = W64# (x# `remWord#` y#) - | otherwise = divZeroError "mod{Word64}" x + | otherwise = divZeroError quotRem x@(W64# x#) y@(W64# y#) | y /= 0 = (W64# (x# `quotWord#` y#), W64# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word64}" x + | otherwise = divZeroError divMod x@(W64# x#) y@(W64# y#) | y /= 0 = (W64# (x# `quotWord#` y#), W64# (x# `remWord#` y#)) - | otherwise = divZeroError "quotRem{Word64}" x + | otherwise = divZeroError toInteger (W64# x#) | i# >=# 0# = S# i# | otherwise = case word2Integer# x# of (# s, d #) -> J# s d @@ -872,9 +860,6 @@ instance Bits Word64 where #endif -instance CCallable Word64 -instance CReturnable Word64 - instance Show Word64 where showsPrec p x = showsPrec p (toInteger x)