diff options
| author | Don Stewart <dons@galois.com> | 2008-03-05 01:58:27 +0000 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-03-05 01:58:27 +0000 |
| commit | c0e1b8dd3f3014e20a6a8b6a3a9a017cdde27f59 (patch) | |
| tree | 416fdbc12d8f79e70697d474c033889a95505ffb /libraries/base/GHC/Word.hs | |
| parent | 4c61e6fe6e541a9ebf6f78a622d752b57ead3acf (diff) | |
| download | haskell-c0e1b8dd3f3014e20a6a8b6a3a9a017cdde27f59.tar.gz | |
untabify
Diffstat (limited to 'libraries/base/GHC/Word.hs')
| -rw-r--r-- | libraries/base/GHC/Word.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/GHC/Word.hs b/libraries/base/GHC/Word.hs index 4e3596587f..dbb1bb3656 100644 --- a/libraries/base/GHC/Word.hs +++ b/libraries/base/GHC/Word.hs @@ -169,7 +169,7 @@ instance Bits Word where | otherwise = W# ((x# `uncheckedShiftL#` i'#) `or#` (x# `uncheckedShiftRL#` (wsib -# i'#))) where i'# = word2Int# (int2Word# i# `and#` int2Word# (wsib -# 1#)) - wsib = WORD_SIZE_IN_BITS# {- work around preprocessor problem (??) -} + wsib = WORD_SIZE_IN_BITS# {- work around preprocessor problem (??) -} bitSize _ = WORD_SIZE_IN_BITS isSigned _ = False @@ -741,10 +741,10 @@ instance Bits Word64 where shiftL64#, shiftRL64# :: Word64# -> Int# -> Word64# a `shiftL64#` b | b >=# 64# = wordToWord64# (int2Word# 0#) - | otherwise = a `uncheckedShiftL64#` b + | otherwise = a `uncheckedShiftL64#` b a `shiftRL64#` b | b >=# 64# = wordToWord64# (int2Word# 0#) - | otherwise = a `uncheckedShiftRL64#` b + | otherwise = a `uncheckedShiftRL64#` b foreign import ccall unsafe "hs_eqWord64" eqWord64# :: Word64# -> Word64# -> Bool |