aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2020-03-18 23:58:46 -0700
committerPaul Eggert2020-03-19 00:11:16 -0700
commit37d3c1618b6cdf7efc90015fb2786aa30ef0de47 (patch)
tree6cb3c076b98da02c2272461331c413a426c1acf8
parentefb5115ba29d75e1227e36da3d92dc2f5c5b6257 (diff)
downloademacs-37d3c1618b6cdf7efc90015fb2786aa30ef0de47.tar.gz
emacs-37d3c1618b6cdf7efc90015fb2786aa30ef0de47.zip
Tiny simplification of frac_to_double
* src/timefns.c (frac_to_double): Remove unnecessary runtime check, since the denominator is always positive.
-rw-r--r--src/timefns.c3
1 files changed, 1 insertions, 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)
593} 593}
594 594
595/* Return NUMERATOR / DENOMINATOR, rounded to the nearest double. 595/* Return NUMERATOR / DENOMINATOR, rounded to the nearest double.
596 Arguments must be Lisp integers, and DENOMINATOR must be nonzero. */ 596 Arguments must be Lisp integers, and DENOMINATOR must be positive. */
597static double 597static double
598frac_to_double (Lisp_Object numerator, Lisp_Object denominator) 598frac_to_double (Lisp_Object numerator, Lisp_Object denominator)
599{ 599{
@@ -601,7 +601,6 @@ frac_to_double (Lisp_Object numerator, Lisp_Object denominator)
601 if (FASTER_TIMEFNS 601 if (FASTER_TIMEFNS
602 && integer_to_intmax (numerator, &intmax_numerator) 602 && integer_to_intmax (numerator, &intmax_numerator)
603 && integer_to_intmax (denominator, &intmax_denominator) 603 && integer_to_intmax (denominator, &intmax_denominator)
604 && ! INT_DIVIDE_OVERFLOW (intmax_numerator, intmax_denominator)
605 && intmax_numerator % intmax_denominator == 0) 604 && intmax_numerator % intmax_denominator == 0)
606 return intmax_numerator / intmax_denominator; 605 return intmax_numerator / intmax_denominator;
607 606