From 37d3c1618b6cdf7efc90015fb2786aa30ef0de47 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 18 Mar 2020 23:58:46 -0700 Subject: [PATCH] Tiny simplification of frac_to_double * src/timefns.c (frac_to_double): Remove unnecessary runtime check, since the denominator is always positive. --- src/timefns.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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; -- 2.39.5