[src/{set_d.c,set_f.c}] Type clean-up to improve maintainability.

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/branches/set_exp@8936 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 4 insertions, 3 deletions

diff --git a/src/set_f.c b/src/set_f.c
index 8cdb047b9..ef15c2569 100644
--- a/src/set_f.c
+++ b/src/set_f.c
@@ -28,7 +28,8 @@ int
 mpfr_set_f (mpfr_ptr y, mpf_srcptr x, mpfr_rnd_t rnd_mode)
 {
   mp_limb_t *my, *mx, *tmp;
-  unsigned long cnt, sx, sy;
+  int cnt;
+  mp_size_t sx, sy;
   int inexact, carry = 0;
   MPFR_TMP_DECL(marker);
 
@@ -52,7 +53,7 @@ mpfr_set_f (mpfr_ptr y, mpf_srcptr x, mpfr_rnd_t rnd_mode)
 
   if (sy <= sx) /* we may have to round even when sy = sx */
     {
-      unsigned long xprec = sx * GMP_NUMB_BITS;
+      mpfr_prec_t xprec = (mpfr_prec_t) sx * GMP_NUMB_BITS;
 
       MPFR_TMP_MARK(marker);
       tmp = MPFR_TMP_LIMBS_ALLOC (sx);
@@ -93,7 +94,7 @@ mpfr_set_f (mpfr_ptr y, mpf_srcptr x, mpfr_rnd_t rnd_mode)
   else
     {
       /* Do not use MPFR_SET_EXP as the exponent may be out of range. */
-      MPFR_EXP (y) = EXP (x) * GMP_NUMB_BITS - (mpfr_exp_t) cnt + carry;
+      MPFR_EXP (y) = EXP (x) * GMP_NUMB_BITS - cnt + carry;
     }
 
   return mpfr_check_range (y, inexact, rnd_mode);