diff options
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | array.c | 8 |
2 files changed, 10 insertions, 3 deletions
@@ -1,3 +1,8 @@ +Thu Jul 18 18:14:36 2013 Masaki Matsushita <glass.saga@gmail.com> + + * array.c (rb_ary_count): iterate items appropriately. + [Bug #8654] + Thu Jul 18 17:35:41 2013 Masaki Matsushita <glass.saga@gmail.com> * hash.c (rb_hash_flatten): performance improvement by not using @@ -4177,13 +4177,15 @@ rb_ary_count(int argc, VALUE *argv, VALUE ary) long n = 0; if (argc == 0) { - VALUE *p, *pend; + long i; + VALUE v; if (!rb_block_given_p()) return LONG2NUM(RARRAY_LEN(ary)); - for (p = RARRAY_PTR(ary), pend = p + RARRAY_LEN(ary); p < pend; p++) { - if (RTEST(rb_yield(*p))) n++; + for (i = 0; i < RARRAY_LEN(ary); i++) { + v = RARRAY_AREF(ary, i); + if (RTEST(rb_yield(v))) n++; } } else { |