[use c-- primitives in foreign primitive imports
John Meacham <john@repetae.net>**20070524044607] hunk ./lib/base/Foreign/C/String.hs 196
-foreign import primitive "integralCast" castCCharToChar :: CChar -> Char
-foreign import primitive "integralCast" castCharToCChar :: Char -> CChar
+foreign import primitive "U2U" castCCharToChar :: CChar -> Char
+foreign import primitive "U2U" castCharToCChar :: Char -> CChar
hunk ./lib/base/Foreign/C/String.hs 452
-foreign import primitive "integralCast" castCWcharToChar :: CWchar -> Char
-foreign import primitive "integralCast" castCharToCWchar :: Char -> CWchar
+foreign import primitive "U2U" castCWcharToChar :: CWchar -> Char
+foreign import primitive "U2U" castCharToCWchar :: Char -> CWchar
hunk ./lib/base/Foreign/Ptr.hs 74
-foreign import primitive "integralCast" castFunPtrToPtr :: FunPtr a -> Ptr b
-foreign import primitive "integralCast" castPtrToFunPtr :: Ptr a -> FunPtr b
+foreign import primitive "U2U" castFunPtrToPtr :: FunPtr a -> Ptr b
+foreign import primitive "U2U" castPtrToFunPtr :: Ptr a -> FunPtr b
hunk ./lib/base/Jhc/Addr.hs 36
---foreign import primitive unsafeCoerce :: a -> b
---foreign import primitive integralCast :: a -> b
-foreign import primitive "integralCast" addrToWordPtr :: Addr -> WordPtr
-foreign import primitive "integralCast" wordPtrToAddr :: WordPtr -> Addr
-foreign import primitive "integralCast" wordPtrToFunAddr :: WordPtr -> FunAddr
-foreign import primitive "integralCast" funAddrToWordPtr :: FunAddr -> WordPtr
+foreign import primitive "U2U" addrToWordPtr :: Addr -> WordPtr
+foreign import primitive "U2U" wordPtrToAddr :: WordPtr -> Addr
+foreign import primitive "U2U" wordPtrToFunAddr :: WordPtr -> FunAddr
+foreign import primitive "U2U" funAddrToWordPtr :: FunAddr -> WordPtr
hunk ./lib/base/Jhc/Addr.hs 41
-foreign import primitive "integralCast" intToWordPtr :: Int -> WordPtr
+foreign import primitive "Sx" intToWordPtr :: Int -> WordPtr
hunk ./lib/base/Jhc/Addr.hs 44
-foreign import primitive "plus" plusWordPtr :: WordPtr -> WordPtr -> WordPtr
+foreign import primitive "Add" plusWordPtr :: WordPtr -> WordPtr -> WordPtr
hunk ./lib/base/Jhc/Basics.hs 156
-foreign import primitive "integralCast" ord :: Char -> Int
-foreign import primitive "integralCast" chr :: Int -> Char
+foreign import primitive "U2U" ord :: Char -> Int
+foreign import primitive "I2I" chr :: Int -> Char
hunk ./lib/base/Jhc/Float.hs 16
-foreign import primitive "integralCast" floatToDouble :: Float -> Double
-foreign import primitive "integralCast" doubleToFloat :: Double -> Float
+foreign import primitive "F2F" floatToDouble :: Float -> Double
+foreign import primitive "F2F" doubleToFloat :: Double -> Float
hunk ./lib/base/Jhc/IO.hs 168
-foreign import primitive "integralCast" charToCWchar :: Char -> CWchar
+foreign import primitive "U2U" charToCWchar :: Char -> CWchar
hunk ./lib/base/Jhc/Int.hs 10
-foreign import primitive plus      :: Int -> Int -> Int
-foreign import primitive minus     :: Int -> Int -> Int
-foreign import primitive times     :: Int -> Int -> Int
-foreign import primitive divide    :: Int -> Int -> Int
-foreign import primitive modulus   :: Int -> Int -> Int
+foreign import primitive "Add" plus      :: Int -> Int -> Int
+foreign import primitive "Sub" minus     :: Int -> Int -> Int
+foreign import primitive "Mul" times     :: Int -> Int -> Int
+foreign import primitive "Div" divide    :: Int -> Int -> Int
+foreign import primitive "Mod" modulus   :: Int -> Int -> Int
hunk ./lib/base/Prelude/Float.hs 323
-foreign import primitive "integralCast" integer2float :: Integer -> Float
-foreign import primitive "integralCast" integer2double :: Integer -> Double
-foreign import primitive "integralCast" double2integer :: Double -> Integer
+foreign import primitive "I2F" integer2float :: Integer -> Float
+foreign import primitive "I2F" integer2double :: Integer -> Double
+foreign import primitive "F2I" double2integer :: Double -> Integer
hunk ./lib/base/Prelude/IO.hs 121
-foreign import primitive "integralCast" cwintToChar :: CWint -> Char
-foreign import primitive "integralCast" charToCWchar :: Char -> CWchar
+foreign import primitive "I2I" cwintToChar :: CWint -> Char
+foreign import primitive "U2U" charToCWchar :: Char -> CWchar
hunk ./lib/base/System/IO/Binary.hs 26
-foreign import primitive "integralCast" cintToWord8 :: CInt -> Word8
+foreign import primitive "Lobits" cintToWord8 :: CInt -> Word8
hunk ./lib/base/System/IO.hs 95
-foreign import primitive "integralCast" cwintToChar :: CWint -> Char
+foreign import primitive "I2I" cwintToChar :: CWint -> Char
hunk ./lib/base/System/Time.hs 91
-foreign import primitive "integralCast" ctimeToInteger :: CTime -> Integer
+foreign import primitive "U2U" ctimeToInteger :: CTime -> Integer