diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/timefns.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/timefns.c b/src/timefns.c index 404ce4973b7..a9595b5d239 100644 --- a/src/timefns.c +++ b/src/timefns.c | |||
| @@ -611,9 +611,6 @@ frac_to_double (Lisp_Object numerator, Lisp_Object denominator) | |||
| 611 | ptrdiff_t ndig = mpz_sizeinbase (*n, FLT_RADIX); | 611 | ptrdiff_t ndig = mpz_sizeinbase (*n, FLT_RADIX); |
| 612 | ptrdiff_t ddig = mpz_sizeinbase (*d, FLT_RADIX); | 612 | ptrdiff_t ddig = mpz_sizeinbase (*d, FLT_RADIX); |
| 613 | 613 | ||
| 614 | if (FASTER_TIMEFNS && ndig <= DBL_MANT_DIG && ddig <= DBL_MANT_DIG) | ||
| 615 | return mpz_get_d (*n) / mpz_get_d (*d); | ||
| 616 | |||
| 617 | /* Scale with SCALE when doing integer division. That is, compute | 614 | /* Scale with SCALE when doing integer division. That is, compute |
| 618 | (N * FLT_RADIX**SCALE) / D [or, if SCALE is negative, N / (D * | 615 | (N * FLT_RADIX**SCALE) / D [or, if SCALE is negative, N / (D * |
| 619 | FLT_RADIX**-SCALE)] as a bignum, convert the bignum to double, | 616 | FLT_RADIX**-SCALE)] as a bignum, convert the bignum to double, |