diff options
Diffstat (limited to 'src/numeric.c')
| -rw-r--r-- | src/numeric.c | 24 |
1 files changed, 6 insertions, 18 deletions
diff --git a/src/numeric.c b/src/numeric.c index ca39e318e..b4faab254 100644 --- a/src/numeric.c +++ b/src/numeric.c @@ -1113,27 +1113,15 @@ intdivmod(mrb_state *mrb, mrb_int x, mrb_int y, mrb_int *divp, mrb_int *modp) static mrb_value int_mod(mrb_state *mrb, mrb_value x) { - mrb_value y = mrb_get_arg1(mrb); - mrb_int a, b; + mrb_int a, b, mod; + mrb_get_args(mrb, "i", &b); a = mrb_integer(x); - if (mrb_integer_p(y) && a != MRB_INT_MIN && (b=mrb_integer(y)) != MRB_INT_MIN) { - mrb_int mod = a % b; - if ((a < 0) != (b < 0) && mod != 0) { - mod += b; - } - return mrb_int_value(mrb, mod); - } -#ifdef MRB_NO_FLOAT - mrb_raise(mrb, E_TYPE_ERROR, "non integer modulo"); -#else - else { - mrb_float mod; - - flodivmod(mrb, (mrb_float)a, mrb_as_float(mrb, y), NULL, &mod); - return mrb_float_value(mrb, mod); + mod = a % b; + if ((a < 0) != (b < 0) && mod != 0) { + mod += b; } -#endif + return mrb_int_value(mrb, mod); } /* |