diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-02-17 14:03:00 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-02-17 14:03:00 +0000 |
commit | 9d60296b047564c8fecc78690e537e2673b1790a (patch) | |
tree | 422775034c698f3dada31e41f539cd3a5cd81a4d /libraries/base/GHC/Word.hs | |
parent | f38789e7fc98c21d849725c34b82c962d93afb7f (diff) | |
parent | cea77c1aad086afa8eed54b95eb661313d600142 (diff) | |
download | haskell-9d60296b047564c8fecc78690e537e2673b1790a.tar.gz |
Merge branch 'master' of http://darcs.haskell.org/packages/base
Diffstat (limited to 'libraries/base/GHC/Word.hs')
-rw-r--r-- | libraries/base/GHC/Word.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libraries/base/GHC/Word.hs b/libraries/base/GHC/Word.hs index 7f2e584d54..b61fb580aa 100644 --- a/libraries/base/GHC/Word.hs +++ b/libraries/base/GHC/Word.hs @@ -47,7 +47,7 @@ import GHC.Float () -- for RealFrac methods ------------------------------------------------------------------------ -- |A 'Word' is an unsigned integral type, with the same size as 'Int'. -data Word = W# Word# deriving (Eq, Ord) +data {-# CTYPE "HsWord" #-} Word = W# Word# deriving (Eq, Ord) instance Show Word where showsPrec _ (W# w) = showWord w @@ -181,7 +181,7 @@ instance Bits Word where -- Word8 is represented in the same way as Word. Operations may assume -- and must ensure that it holds only values from its logical range. -data Word8 = W8# Word# deriving (Eq, Ord) +data {-# CTYPE "HsWord8" #-} Word8 = W8# Word# deriving (Eq, Ord) -- ^ 8-bit unsigned integer type instance Show Word8 where @@ -322,7 +322,7 @@ instance Bits Word8 where -- Word16 is represented in the same way as Word. Operations may assume -- and must ensure that it holds only values from its logical range. -data Word16 = W16# Word# deriving (Eq, Ord) +data {-# CTYPE "HsWord16" #-} Word16 = W16# Word# deriving (Eq, Ord) -- ^ 16-bit unsigned integer type instance Show Word16 where @@ -500,7 +500,7 @@ instance Bits Word16 where #endif -data Word32 = W32# Word# deriving (Eq, Ord) +data {-# CTYPE "HsWord32" #-} Word32 = W32# Word# deriving (Eq, Ord) -- ^ 32-bit unsigned integer type instance Num Word32 where @@ -643,7 +643,7 @@ instance Read Word32 where #if WORD_SIZE_IN_BITS < 64 -data Word64 = W64# Word64# +data {-# CTYPE "HsWord64" #-} Word64 = W64# Word64# -- ^ 64-bit unsigned integer type instance Eq Word64 where @@ -761,7 +761,7 @@ a `shiftRL64#` b | b >=# 64# = wordToWord64# (int2Word# 0#) -- Operations may assume and must ensure that it holds only values -- from its logical range. -data Word64 = W64# Word# deriving (Eq, Ord) +data {-# CTYPE "HsWord64" #-} Word64 = W64# Word# deriving (Eq, Ord) -- ^ 64-bit unsigned integer type instance Num Word64 where |