abs = absReal
signum = signumReal
- fromInteger (J# s# d#)
- = case (integer2Int# s# d#) of { i# -> I8# (intToInt8# i#) }
+ fromInteger (S# i#) = I8# (intToInt8# i#)
+ fromInteger (J# s# d#) = I8# (intToInt8# (integer2Int# s# d#))
fromInt = intToInt8
instance Bounded Int8 where
else I16# (0x10000# -# x#)
abs = absReal
signum = signumReal
- fromInteger (J# s# d#)
- = case (integer2Int# s# d#) of { i# -> I16# (intToInt16# i#) }
+ fromInteger (S# i#) = I16# (intToInt16# i#)
+ fromInteger (J# s# d#) = I16# (intToInt16# (integer2Int# s# d#))
fromInt = intToInt16
instance Bounded Int16 where
#endif
abs = absReal
signum = signumReal
- fromInteger (J# s# d#)
- = case (integer2Int# s# d#) of { i# -> I32# (intToInt32# i#) }
+ fromInteger (S# i#) = I32# (intToInt32# i#)
+ fromInteger (J# s# d#) = I32# (intToInt32# (integer2Int# s# d#))
fromInt = intToInt32
instance Bounded Int32 where
negate w@(I64# x) = I64# (negateInt# x)
abs x = absReal
signum = signumReal
- fromInteger (J# s# d#) = case (integer2Int# s# d#) of { i# -> I64# i# }
+ fromInteger (S# i#) = I64# i#
+ fromInteger (J# s# d#) = I64# (integer2Int# s# d#)
fromInt = intToInt64
instance Bounded Int64 where
(# s#, p# #) -> J# s# p#
integerToInt64 :: Integer -> Int64
+integerToInt64 (S# i#) = I64# (intToInt64# i#)
integerToInt64 (J# s# d#) = I64# (integerToInt64# s# d#)
instance Eq Int64 where