diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-24 15:40:55 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-24 15:55:09 -0700 |
| commit | 63906ab4877b0f93e806a1a0b3b92ba8c8c67398 (patch) | |
| tree | 082ba32e2fb50d97c383a8c6d02030b359f1e90b /src/timefns.c | |
| parent | a050cf80f38e6b9b33745bc62b50dab43cac7a3a (diff) | |
| download | emacs-63906ab4877b0f93e806a1a0b3b92ba8c8c67398.tar.gz | |
Tweak time arithmetic performance
* src/timefns.c (time_arith): Prefer mpz_divexact to mpz_tdiv_q
when either will do.
Diffstat (limited to 'src/timefns.c')
| -rw-r--r-- | src/timefns.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/timefns.c b/src/timefns.c index 6c9473f22a6..c1e3141c4cf 100644 --- a/src/timefns.c +++ b/src/timefns.c @@ -1105,8 +1105,8 @@ time_arith (Lisp_Object a, Lisp_Object b, bool subtract) /* fa = da/g, fb = db/g. */ mpz_t *fa = &mpz[4], *fb = &mpz[3]; - mpz_tdiv_q (*fa, *da, *g); - mpz_tdiv_q (*fb, *db, *g); + mpz_divexact (*fa, *da, *g); + mpz_divexact (*fb, *db, *g); /* ihz = fa * db. This is equal to lcm (da, db). */ mpz_t *ihz = &mpz[0]; @@ -1149,8 +1149,8 @@ time_arith (Lisp_Object a, Lisp_Object b, bool subtract) if (!FASTER_TIMEFNS || mpz_cmp_ui (*ig, 1) > 0) { - mpz_tdiv_q (*iticks, *iticks, *ig); - mpz_tdiv_q (*ihz, *ihz, *ig); + mpz_divexact (*iticks, *iticks, *ig); + mpz_divexact (*ihz, *ihz, *ig); if (!FASTER_TIMEFNS || mpz_cmp (*ihz, *hzmin) < 0) { |