Improve initial prec.

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

1 files changed, 1 insertions, 2 deletions

diff --git a/tanh.c b/tanh.c
index 5b0a3d59a..4585d00bf 100644
--- a/tanh.c
+++ b/tanh.c
@@ -76,8 +76,7 @@ mpfr_tanh (mpfr_ptr y, mpfr_srcptr xt , mp_rnd_t rnd_mode)
     
     /* The optimal number of bits: see algorithms.ps */
     Nt = Nt + MPFR_INT_CEIL_LOG2 (Nt) + 4;
-    if (MPFR_GET_EXP (x) > 0)
-      Nt += MPFR_GET_EXP (x);
+    Nt += ABS (MPFR_GET_EXP (x));
 
     /* initialise of intermediary variable */
     mpfr_init2 (t, Nt);