Take into account Inf, Nans ; clear the flags of the return variable

in most function calls.


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

1 files changed, 2 insertions, 3 deletions

diff --git a/set_d.c b/set_d.c
index 31a24d23c..c834cff51 100644
--- a/set_d.c
+++ b/set_d.c
@@ -242,6 +242,7 @@ mpfr_set_d(r, d, rnd_mode)
 {
   int signd, sizer; unsigned int cnt;
 
+  
   if (d == 0) { MPFR_SET_ZERO(r); return; }
   else if (DOUBLE_ISNAN(d)) { MPFR_SET_NAN(r); return; }
   else if (DOUBLE_ISINF(d))
@@ -252,9 +253,7 @@ mpfr_set_d(r, d, rnd_mode)
       return;
     }
 
-  /* reset infinity flag if set */
-  if (MPFR_IS_INF(r)) MPFR_RESET_INF(r);
-
+  MPFR_CLEAR_FLAGS(r); 
   signd = (d < 0) ? -1 : 1;
   d = ABS (d);
   sizer = (MPFR_PREC(r)-1)/BITS_PER_MP_LIMB + 1;