mpfr_isinteger extended to non-fp numbers and to zero.

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

1 files changed, 11 insertions, 7 deletions

diff --git a/isinteger.c b/isinteger.c
index df70fd5eb..ced0ec7c7 100644
--- a/isinteger.c
+++ b/isinteger.c
@@ -27,19 +27,23 @@ MA 02111-1307, USA. */
 int 
 mpfr_isinteger (mpfr_srcptr x)
 {
-
-  mpfr_t u;
-  int expo;
+  mp_exp_t expo;
   mp_prec_t prec;
+  mpfr_t u;
   int result;
 
-  expo=(int)MPFR_EXP(x);
-  prec=MPFR_PREC(x);
+  if (!MPFR_IS_FP(x))
+    return 0;
+
+  if (MPFR_IS_ZERO(x))
+    return 1;
 
-  if (expo<=0) 
+  expo = MPFR_EXP(x);
+  if (expo <= 0)
     return 0;
 
-  if (expo>=prec) 
+  prec = MPFR_PREC(x);
+  if (expo >= prec)
     return 1;
 
   mpfr_init2(u,prec);