Permalink
Browse files

Remove the Integer functions; they're now in integer-gmp instead

  • Loading branch information...
1 parent a5e2495 commit a597405dc3b74978ad20b91f9af82b3d387ac82c @igfoo igfoo committed Jun 15, 2009
Showing with 0 additions and 40 deletions.
  1. +0 −2 GHC/IntWord64.hs
  2. +0 −38 cbits/longlong.c
View
@@ -62,8 +62,6 @@ foreign import ccall unsafe "hs_uncheckedIShiftL64" uncheckedIShiftL64# :: Int
foreign import ccall unsafe "hs_uncheckedIShiftRA64" uncheckedIShiftRA64# :: Int64# -> Int# -> Int64#
foreign import ccall unsafe "hs_uncheckedIShiftRL64" uncheckedIShiftRL64# :: Int64# -> Int# -> Int64#
-foreign import ccall unsafe "hs_integerToWord64" integerToWord64# :: Int# -> ByteArray# -> Word64#
-foreign import ccall unsafe "hs_integerToInt64" integerToInt64# :: Int# -> ByteArray# -> Int64#
foreign import ccall unsafe "hs_int64ToWord64" int64ToWord64# :: Int64# -> Word64#
foreign import ccall unsafe "hs_word64ToInt64" word64ToInt64# :: Word64# -> Int64#
foreign import ccall unsafe "hs_intToInt64" intToInt64# :: Int# -> Int64#
View
@@ -79,8 +79,6 @@ HsInt64 hs_uncheckedIShiftRL64 (HsInt64 a, HsInt b)
{return (HsInt64) ((HsWord64) a >> b);}
/* Casting between longs and longer longs.
- (the primops that cast from long longs to Integers
- expressed as macros, since these may cause some heap allocation).
*/
HsInt64 hs_intToInt64 (HsInt i) {return (HsInt64) i;}
@@ -90,40 +88,4 @@ HsWord64 hs_wordToWord64 (HsWord w) {return (HsWord64) w;}
HsWord hs_word64ToWord (HsWord64 w) {return (HsWord) w;}
HsInt64 hs_word64ToInt64 (HsWord64 w) {return (HsInt64) w;}
-HsWord64 hs_integerToWord64 (HsInt sa, StgByteArray /* Really: mp_limb_t* */ da)
-{
- mp_limb_t* d;
- HsInt s;
- HsWord64 res;
- d = (mp_limb_t *)da;
- s = sa;
- switch (s) {
- case 0: res = 0; break;
- case 1: res = d[0]; break;
- case -1: res = -(HsWord64)d[0]; break;
- default:
- res = (HsWord64)d[0] + ((HsWord64)d[1] << (BITS_IN (mp_limb_t)));
- if (s < 0) res = -res;
- }
- return res;
-}
-
-HsInt64 hs_integerToInt64 (HsInt sa, StgByteArray /* Really: mp_limb_t* */ da)
-{
- mp_limb_t* d;
- HsInt s;
- HsInt64 res;
- d = (mp_limb_t *)da;
- s = (sa);
- switch (s) {
- case 0: res = 0; break;
- case 1: res = d[0]; break;
- case -1: res = -(HsInt64)d[0]; break;
- default:
- res = (HsInt64)d[0] + ((HsWord64)d[1] << (BITS_IN (mp_limb_t)));
- if (s < 0) res = -res;
- }
- return res;
-}
-
#endif /* SUPPORT_LONG_LONGS */

0 comments on commit a597405

Please sign in to comment.