aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/timefns.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/timefns.c b/src/timefns.c
index 4079358fc5d..553daf6e6a9 100644
--- a/src/timefns.c
+++ b/src/timefns.c
@@ -616,7 +616,7 @@ frac_to_double (Lisp_Object numerator, Lisp_Object denominator)
616 (N * FLT_RADIX**SCALE) / D [or, if SCALE is negative, N / (D * 616 (N * FLT_RADIX**SCALE) / D [or, if SCALE is negative, N / (D *
617 FLT_RADIX**-SCALE)] as a bignum, convert the bignum to double, 617 FLT_RADIX**-SCALE)] as a bignum, convert the bignum to double,
618 then divide the double by FLT_RADIX**SCALE. First scale N 618 then divide the double by FLT_RADIX**SCALE. First scale N
619 N (or scale D, if SCALE is negative) ... */ 619 (or scale D, if SCALE is negative) ... */
620 ptrdiff_t scale = ddig - ndig + DBL_MANT_DIG + 1; 620 ptrdiff_t scale = ddig - ndig + DBL_MANT_DIG + 1;
621 if (scale < 0) 621 if (scale < 0)
622 { 622 {