aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/timefns.c3
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,