added cast to "unsigned long" for ai = ABS(i)

moved mpfr_set_ui to separate file


git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@989 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 3 insertions, 44 deletions

diff --git a/set_si.c b/set_si.c
index 9594682fe..20abb0e7f 100644
--- a/set_si.c
+++ b/set_si.c
@@ -1,6 +1,6 @@
-/* mpfr_set_si, mpfr_set_ui -- set a MPFR number from a machine integer
+/* mpfr_set_si -- set a MPFR number from a machine signed integer
 
-Copyright (C) 1999 Free Software Foundation.
+Copyright (C) 1999-2001 Free Software Foundation.
 
 This file is part of the MPFR Library.
 
@@ -41,7 +41,7 @@ mpfr_set_si (x, i, rnd_mode)
   MPFR_CLEAR_FLAGS(x);
   if (i==0) { MPFR_SET_ZERO(x); return; }
   xn = (MPFR_PREC(x)-1)/BITS_PER_MP_LIMB;
-  ai = ABS(i); 
+  ai = (unsigned long) ABS(i); 
 
   count_leading_zeros(cnt, ai); 
 
@@ -67,44 +67,3 @@ mpfr_set_si (x, i, rnd_mode)
 
   return; 
 }
-
-void
-#if __STDC__
-mpfr_set_ui (mpfr_ptr x, unsigned long int i, mp_rnd_t rnd_mode)
-#else
-mpfr_set_ui (x, i, rnd_mode)
-     mpfr_ptr x;
-     unsigned long int i;
-     mp_rnd_t rnd_mode;
-#endif  
-{
-  unsigned int xn, cnt; mp_limb_t *xp;
-
-  MPFR_CLEAR_FLAGS(x);
-  if (i==0) { MPFR_SET_ZERO(x); return; }
-  xn = (MPFR_PREC(x)-1)/BITS_PER_MP_LIMB;
-  count_leading_zeros(cnt, (mp_limb_t) i); 
-
-  xp = MPFR_MANT(x);
-  xp[xn] = ((mp_limb_t) i) << cnt; 
-  /* don't forget to put zero in lower limbs */
-  MPN_ZERO(xp, xn);
-
-  MPFR_EXP(x) = BITS_PER_MP_LIMB - cnt;
-
-  /* round if MPFR_PREC(x) smaller than length of i */
-  if (MPFR_PREC(x) < BITS_PER_MP_LIMB-cnt) {
-    cnt = mpfr_round_raw(xp+xn, xp+xn, BITS_PER_MP_LIMB-cnt, 0, MPFR_PREC(x), 
-			 rnd_mode);
-    if (cnt) { /* special case 1.000...000 */
-      MPFR_EXP(x)++;
-      xp[xn] = ((mp_limb_t) 1) << (BITS_PER_MP_LIMB-1);
-    }
-  }
-
-  /* warning: don't change the precision of x! */
-  if (MPFR_SIGN(x) < 0) MPFR_CHANGE_SIGN(x);
-
-  return; 
-}
-