check overflow in _mpfr_ceil_exp2

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

1 files changed, 4 insertions, 0 deletions

diff --git a/agm.c b/agm.c
index 27a992769..d24eda687 100644
--- a/agm.c
+++ b/agm.c
@@ -61,6 +61,10 @@ _mpfr_ceil_exp2 (double d)
   /* now exp = ceil(d) */
   x.d = 1.0;
   if (exp < -1022) exp = -1022;
+  else if (exp > 1024) {
+    fprintf (stderr, "Overflow in _mpfr_ceil_exp2\n");
+    exit (1);
+  }
   x.s.exp = 1023 + exp;
   return x.d;
 }