diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/timefns.c | 3 |
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. */ |
| 597 | static double | 597 | static double |
| 598 | frac_to_double (Lisp_Object numerator, Lisp_Object denominator) | 598 | frac_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 | ||