diff options
| author | Tom Tromey <tom@tromey.com> | 2018-08-09 13:21:45 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2018-08-09 13:28:37 -0600 |
| commit | f822a2516d88eeb2118fbbc8554f155e86dfd74e (patch) | |
| tree | 061d1fc09449a94c1ec0364057388529b1a4c49a /src | |
| parent | f966753727741883c5d81a288ce5c20cebe3bad0 (diff) | |
| download | emacs-f822a2516d88eeb2118fbbc8554f155e86dfd74e.tar.gz | |
Use mpz_sgn rather than comparisons against 0
* src/data.c (Fmod): Use mpz_sgn.
* src/lisp.h (NATNUMP): Use mpz_sgn.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 4 | ||||
| -rw-r--r-- | src/lisp.h | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 6512e7e6706..7d701fde0e2 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 9047d217249..6726d69fced 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 |