[Emacs-diffs] feature/bignum f822a25 2/2: Use mpz_sgn rather than comparisons against 0

[Tom Tromey]

branch: feature/bignum
commit f822a2516d88eeb2118fbbc8554f155e86dfd74e
Author: Tom Tromey <address@hidden>
Commit: Tom Tromey <address@hidden>

    Use mpz_sgn rather than comparisons against 0
    
    * src/data.c (Fmod): Use mpz_sgn.
    * src/lisp.h (NATNUMP): Use mpz_sgn.
---
 src/data.c | 4 ++--
 src/lisp.h | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/data.c b/src/data.c
index 6512e7e..7d701fd 100644
--- a/src/data.c
+++ b/src/data.c
@@ -3251,8 +3251,8 @@ Both X and Y must be numbers or markers.  */)
       mpz_mod (result, *xmp, *ymp);
 
       /* Fix the sign if needed.  */
-      cmpr = mpz_cmp_si (result, 0);
-      cmpy = mpz_cmp_si (*ymp, 0);
+      cmpr = mpz_sgn (result);
+      cmpy = mpz_sgn (*ymp);
       if (cmpy < 0 ? cmpr > 0 : cmpr < 0)
        mpz_add (result, result, *ymp);
 
diff --git a/src/lisp.h b/src/lisp.h
index 9047d21..6726d69 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2772,7 +2772,7 @@ INLINE bool
 NATNUMP (Lisp_Object x)
 {
   if (BIGNUMP (x))
-    return mpz_cmp_si (XBIGNUM (x)->value, 0) >= 0;
+    return mpz_sgn (XBIGNUM (x)->value) >= 0;
   return FIXNUMP (x) && 0 <= XFIXNUM (x);
 }
 INLINE bool