From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 24 Aug 2019 22:40:55 +0000 (-0700)
Subject: Tweak time arithmetic performance
X-Git-Tag: emacs-27.0.90~1328^2~82
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63906ab4877b0f93e806a1a0b3b92ba8c8c67398;p=emacs.git

Tweak time arithmetic performance

* src/timefns.c (time_arith): Prefer mpz_divexact to mpz_tdiv_q
when either will do.
---

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)
 	    {