[src/strtofr.c] fix from r13163 was incorrect

[tests/tget_str.c] added a testcase, and fixed an error message


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

1 files changed, 5 insertions, 1 deletions

diff --git a/src/strtofr.c b/src/strtofr.c
index 5f4b80e72..703caa7b2 100644
--- a/src/strtofr.c
+++ b/src/strtofr.c
@@ -570,7 +570,11 @@ parsed_string_to_mpfr (mpfr_t x, struct parsed_string *pstr, mpfr_rnd_t rnd)
             exact = mpn_rshift (y, y, real_ysize, GMP_NUMB_BITS - count) ==
               MPFR_LIMB_ZERO;
           else
-            exact = 1;
+            {
+              /* copy {y+1, real_ysize-1} to {y, real_ysize-1} */
+              exact = y[0] == MPFR_LIMB_ZERO;
+              mpn_copyi (y, y + 1, real_ysize - 1);
+            }
           /* for each bit shift increase exponent of y */
           exp = GMP_NUMB_BITS - count;
         }