return -> MPFR_RET, patch d'un leak dans inp_str.c

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

1 files changed, 2 insertions, 1 deletions

diff --git a/inp_str.c b/inp_str.c
index 8417989d2..a218f8c3c 100644
--- a/inp_str.c
+++ b/inp_str.c
@@ -78,9 +78,10 @@ mpfr_inp_str (mpfr_ptr rop, FILE *stream, int base, mp_rnd_t rnd_mode)
   str[str_size] = 0;
 
   retval = mpfr_set_str (rop, str, base, rnd_mode);
+  (*__gmp_free_func) (str, alloc_size);
+
   if (retval == -1)
     return 0;			/* error */
 
-  (*__gmp_free_func) (str, alloc_size);
   return str_size + nread;
 }