From 326e38164b1ec54925591434891a5c131b1d7b3d Mon Sep 17 00:00:00 2001 From: nobu Date: Wed, 4 Sep 2013 13:57:02 +0000 Subject: numeric.c: split NUM_STEP_GET_INF * numeric.c (NUM_STEP_GET_INF): split from NUM_STEP_SCAN_ARGS(), since inf is not used in num_step_size(). git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@42829 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- numeric.c | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'numeric.c') diff --git a/numeric.c b/numeric.c index 780186eb58..c67b97ee55 100644 --- a/numeric.c +++ b/numeric.c @@ -1846,7 +1846,7 @@ ruby_num_interval_step_size(VALUE from, VALUE to, VALUE step, int excl) } } -#define NUM_STEP_SCAN_ARGS(argc, argv, to, step, hash, desc, inf) do { \ +#define NUM_STEP_SCAN_ARGS(argc, argv, to, step, hash, desc) do { \ argc = rb_scan_args(argc, argv, "02:", &to, &step, &hash); \ if (!NIL_P(hash)) { \ step = rb_hash_aref(hash, sym_by); \ @@ -1878,7 +1878,10 @@ ruby_num_interval_step_size(VALUE from, VALUE to, VALUE step, int excl) rb_raise(rb_eTypeError, "limit must be numeric"); \ } \ } \ - if (TYPE(to) == T_FLOAT) { \ +} while (0) + +#define NUM_STEP_GET_INF(to, desc, inf) do { \ + if (RB_TYPE_P(to, T_FLOAT)) { \ double f = RFLOAT_VALUE(to); \ inf = isinf(f) && (signbit(f) ? desc : !desc); \ } \ @@ -1889,11 +1892,11 @@ static VALUE num_step_size(VALUE from, VALUE args, VALUE eobj) { VALUE to, step, hash; - int desc, inf; + int desc; int argc = args ? RARRAY_LENINT(args) : 0; VALUE *argv = args ? RARRAY_PTR(args) : 0; - NUM_STEP_SCAN_ARGS(argc, argv, to, step, hash, desc, inf); + NUM_STEP_SCAN_ARGS(argc, argv, to, step, hash, desc); return ruby_num_interval_step_size(from, to, step, FALSE); } @@ -1959,7 +1962,9 @@ num_step(int argc, VALUE *argv, VALUE from) RETURN_SIZED_ENUMERATOR(from, argc, argv, num_step_size); - NUM_STEP_SCAN_ARGS(argc, argv, to, step, hash, desc, inf); + NUM_STEP_SCAN_ARGS(argc, argv, to, step, hash, desc); + NUM_STEP_GET_INF(to, desc, inf); + if (FIXNUM_P(from) && (inf || FIXNUM_P(to)) && FIXNUM_P(step)) { long i = FIX2LONG(from); -- cgit v1.2.3