diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/timefns.c | 2 |
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 | { |