From db3573e0bf45bc3653d49a7dee90458df09005c8 Mon Sep 17 00:00:00 2001 From: ksss Date: Tue, 28 Mar 2017 22:50:10 +0900 Subject: Should raise FloatDomainError --- src/numeric.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'src/numeric.c') diff --git a/src/numeric.c b/src/numeric.c index 828898fcc..aa6f86cb9 100644 --- a/src/numeric.c +++ b/src/numeric.c @@ -610,6 +610,17 @@ flo_round(mrb_state *mrb, mrb_value num) return mrb_fixnum_value((mrb_int)number); } +void +mrb_check_num_exact(mrb_state *mrb, mrb_float num) +{ + if (isinf(num)) { + mrb_raise(mrb, E_FLOATDOMAIN_ERROR, num < 0 ? "-Infinity" : "Infinity"); + } + if (isnan(num)) { + mrb_raise(mrb, E_FLOATDOMAIN_ERROR, "NaN"); + } +} + /* 15.2.9.3.14 */ /* 15.2.9.3.15 */ /* @@ -630,6 +641,7 @@ flo_truncate(mrb_state *mrb, mrb_value num) if (f < 0.0) f = ceil(f); if (!FIXABLE(f)) { + mrb_check_num_exact(mrb, f); return mrb_float_value(mrb, f); } return mrb_fixnum_value((mrb_int)f); -- cgit v1.2.3