{-# LANGUAGE CPP #-}
{-# LANGUAGE MagicHash #-}
module Basement.Numerical.Conversion
( intToInt64
, int64ToInt
, intToWord
, wordToWord64
, word64ToWord
, Word32x2(..)
, word64ToWord32s
, wordToChar
, wordToInt
, word64ToWord#
, charToInt
, int64ToWord64
, word64ToInt64
) where
#include "MachDeps.h"
import GHC.Types
import GHC.Prim
import GHC.Int
import GHC.Word
#if WORD_SIZE_IN_BITS < 64
import GHC.IntWord64
#endif
intToInt64 :: Int -> Int64
#if WORD_SIZE_IN_BITS == 64
intToInt64 (I# i) = I64# i
#else
intToInt64 :: Int -> Int64
intToInt64 (I# Int#
i) = Int64# -> Int64
I64# (Int# -> Int64#
intToInt64# Int#
i)
#endif
int64ToInt :: Int64 -> Int
#if WORD_SIZE_IN_BITS == 64
int64ToInt (I64# i) = I# i
#else
int64ToInt :: Int64 -> Int
int64ToInt (I64# Int64#
i) = Int# -> Int
I# (Int64# -> Int#
int64ToInt# Int64#
i)
#endif
wordToWord64 :: Word -> Word64
#if WORD_SIZE_IN_BITS == 64
wordToWord64 (W# i) = W64# i
#else
wordToWord64 :: Word -> Word64
wordToWord64 (W# Word#
i) = Word64# -> Word64
W64# (Word# -> Word64#
wordToWord64# Word#
i)
#endif
word64ToWord :: Word64 -> Word
#if WORD_SIZE_IN_BITS == 64
word64ToWord (W64# i) = W# i
#else
word64ToWord :: Word64 -> Word
word64ToWord (W64# Word64#
i) = Word# -> Word
W# (Word64# -> Word#
word64ToWord# Word64#
i)
#endif
word64ToInt64 :: Word64 -> Int64
#if WORD_SIZE_IN_BITS == 64
word64ToInt64 (W64# i) = I64# (word2Int# i)
#else
word64ToInt64 :: Word64 -> Int64
word64ToInt64 (W64# Word64#
i) = Int64# -> Int64
I64# (Word64# -> Int64#
word64ToInt64# Word64#
i)
#endif
int64ToWord64 :: Int64 -> Word64
#if WORD_SIZE_IN_BITS == 64
int64ToWord64 (I64# i) = W64# (int2Word# i)
#else
int64ToWord64 :: Int64 -> Word64
int64ToWord64 (I64# Int64#
i) = Word64# -> Word64
W64# (Int64# -> Word64#
int64ToWord64# Int64#
i)
#endif
#if WORD_SIZE_IN_BITS == 64
word64ToWord# :: Word# -> Word#
word64ToWord# i = i
{-# INLINE word64ToWord# #-}
#endif
data Word32x2 = Word32x2 {-# UNPACK #-} !Word32
{-# UNPACK #-} !Word32
#if WORD_SIZE_IN_BITS == 64
word64ToWord32s :: Word64 -> Word32x2
word64ToWord32s (W64# w64) = Word32x2 (W32# (uncheckedShiftRL# w64 32#)) (W32# (narrow32Word# w64))
#else
word64ToWord32s :: Word64 -> Word32x2
word64ToWord32s :: Word64 -> Word32x2
word64ToWord32s (W64# Word64#
w64) = Word32 -> Word32 -> Word32x2
Word32x2 (Word# -> Word32
W32# (Word64# -> Word#
word64ToWord# (Word64# -> Int# -> Word64#
uncheckedShiftRL64# Word64#
w64 Int#
32#))) (Word# -> Word32
W32# (Word64# -> Word#
word64ToWord# Word64#
w64))
#endif
wordToChar :: Word -> Char
wordToChar :: Word -> Char
wordToChar (W# Word#
word) = Char# -> Char
C# (Int# -> Char#
chr# (Word# -> Int#
word2Int# Word#
word))
wordToInt :: Word -> Int
wordToInt :: Word -> Int
wordToInt (W# Word#
word) = Int# -> Int
I# (Word# -> Int#
word2Int# Word#
word)
intToWord :: Int -> Word
intToWord :: Int -> Word
intToWord (I# Int#
i) = Word# -> Word
W# (Int# -> Word#
int2Word# Int#
i)
charToInt :: Char -> Int
charToInt :: Char -> Int
charToInt (C# Char#
x) = Int# -> Int
I# (Char# -> Int#
ord# Char#
x)