fixed pb with rounding of negative numbers

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

1 files changed, 3 insertions, 3 deletions

diff --git a/get_str.c b/get_str.c
index 122fd3d1f..1c579e8b1 100644
--- a/get_str.c
+++ b/get_str.c
@@ -151,18 +151,18 @@ char *mpfr_get_str(str, expptr, base, n, op, rnd_mode)
       ok=1;
       rnd_mode=GMP_RNDN;
     }
-    ok = pow2 || mpfr_can_round(b, q-err, rnd_mode, rnd_mode, prec);
+    else ok = pow2 || mpfr_can_round(b, q-err, rnd_mode, rnd_mode, prec);
 
   } while (ok==0 && (q+=BITS_PER_MP_LIMB) );
 
-  if (ok) mpfr_round(b, rnd_mode, EXP(b));
-
   if (neg)
     switch (rnd_mode) {
     case GMP_RNDU: rnd_mode=GMP_RNDZ; break;
     case GMP_RNDD: rnd_mode=GMP_RNDU; break;
   }
 
+  if (ok) mpfr_round(b, rnd_mode, EXP(b));
+
   prec=EXP(b); /* may have changed due to rounding */
 
   /* now the mantissa is the integer part of b */