diff options
| -rw-r--r-- | src/numeric.c | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/src/numeric.c b/src/numeric.c index c17b9c251..a8c483148 100644 --- a/src/numeric.c +++ b/src/numeric.c @@ -143,8 +143,25 @@ mrb_flo_to_str(mrb_state *mrb, mrb_value flo) } exp = (n > 1) ? floor(log10(n)) : -ceil(-log10(n)); + + /* preserve significands */ + int length = 0; + if (exp < 0) { + int i, beg = -1, end = 0; + double f = n; + double fd = 0; + for (i = 0; i < FLO_MAX_DIGITS; ++i) { + f = (f - fd) * 10.0; + fd = floor(f + FLO_EPSILON); + if (fd != 0) { + if (beg < 0) beg = i; + end = i + 1; + } + } + if (beg >= 0) length = end - beg; + } - if ((exp < 0 ? -exp : exp) >= FLO_MAX_DIGITS) { + if (abs(exp) + length >= FLO_MAX_DIGITS) { /* exponent representation */ e = TRUE; n = n / pow(10.0, exp); |