From: Paul Eggert <eggert@cs.ucla.edu>
Date: Thu, 19 Mar 2020 06:58:46 +0000 (-0700)
Subject: Tiny simplification of frac_to_double
X-Git-Tag: emacs-28.0.90~7745
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37d3c1618b6cdf7efc90015fb2786aa30ef0de47;p=emacs.git

Tiny simplification of frac_to_double

* src/timefns.c (frac_to_double): Remove unnecessary runtime check,
since the denominator is always positive.
---

diff --git a/src/timefns.c b/src/timefns.c
index a9595b5d239..7bcc37d7c1e 100644
--- a/src/timefns.c
+++ b/src/timefns.c
@@ -593,7 +593,7 @@ timespec_to_lisp (struct timespec t)
 }
 
 /* Return NUMERATOR / DENOMINATOR, rounded to the nearest double.
-   Arguments must be Lisp integers, and DENOMINATOR must be nonzero.  */
+   Arguments must be Lisp integers, and DENOMINATOR must be positive.  */
 static double
 frac_to_double (Lisp_Object numerator, Lisp_Object denominator)
 {
@@ -601,7 +601,6 @@ frac_to_double (Lisp_Object numerator, Lisp_Object denominator)
   if (FASTER_TIMEFNS
       && integer_to_intmax (numerator, &intmax_numerator)
       && integer_to_intmax (denominator, &intmax_denominator)
-      && ! INT_DIVIDE_OVERFLOW (intmax_numerator, intmax_denominator)
       && intmax_numerator % intmax_denominator == 0)
     return intmax_numerator / intmax_denominator;