blob: 255f5780dd7636150991230a7345e925ac37dde9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
import Data.Bits
import Data.Int
import Data.Word
unsafeShift32R :: (Bits a, Num a) => a -> a
unsafeShift32R x = unsafeShiftR x 32
main :: IO ()
main = do
print $ map unsafeShift32R [ 123456, 0x7fffffff :: Int ]
print $ map unsafeShift32R [ -123456, -0x80000000 :: Int ]
print $ map unsafeShift32R [ 123456, 0xffffffff :: Word ]
|
