diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-01 02:52:21 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-01 02:52:21 +0000 |
commit | 601354bd6b661950663746bc41fe364b67bb8cd5 (patch) | |
tree | 0d3a28d2d017105b74cc60301cf522134b0a4692 /array.c | |
parent | 81f52e532b8923f2544d129f90ccb1514f1615e0 (diff) |
* eval.c (BEGIN_CALLARGS): should not always reset ruby_iter,
need to restore previous value. [ruby-talk:77577]
* array.c (rb_ary_fill): array length may be changed during the
block execution. [ruby-talk:77579]
* array.c (rb_ary_zip): ditto.
* array.c (rb_ary_fill): ditto.
* hash.c (env_reject_bang): length may be changed during the block
execution.
* hash.c (env_clear): ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4254 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'array.c')
-rw-r--r-- | array.c | 23 |
1 files changed, 16 insertions, 7 deletions
@@ -50,7 +50,7 @@ rb_ary_modify_check(ary) { if (OBJ_FROZEN(ary)) rb_error_frozen("array"); if (FL_TEST(ary, ARY_TMPLOCK)) - rb_raise(rb_eTypeError, "can't modify array during sort"); + rb_raise(rb_eTypeError, "can't modify array during iteration"); if (!OBJ_TAINTED(ary) && rb_safe_level() >= 4) rb_raise(rb_eSecurityError, "Insecure: can't modify array"); } @@ -839,6 +839,9 @@ rb_ary_reverse_each(ary) while (len--) { rb_yield(RARRAY(ary)->ptr[len]); + if (RARRAY(ary)->len < len) { + len = RARRAY(ary)->len; + } } return ary; } @@ -1423,12 +1426,11 @@ rb_ary_zip(argc, argv, ary) long len; VALUE result; - len = RARRAY(ary)->len; for (i=0; i<argc; i++) { argv[i] = to_ary(argv[i]); } if (rb_block_given_p()) { - for (i=0; i<len; i++) { + for (i=0; i<RARRAY(ary)->len; i++) { VALUE tmp = rb_ary_new2(argc+1); rb_ary_push(tmp, rb_ary_entry(ary, i)); @@ -1439,6 +1441,7 @@ rb_ary_zip(argc, argv, ary) } return Qnil; } + len = RARRAY(ary)->len; result = rb_ary_new2(len); for (i=0; i<len; i++) { VALUE tmp = rb_ary_new2(argc+1); @@ -1562,15 +1565,21 @@ rb_ary_fill(argc, argv, ary) } RARRAY(ary)->len = end; } - p = RARRAY(ary)->ptr + beg; - pend = p + len; if (block_p) { - while (p < pend) { - *p++ = rb_yield(LONG2NUM(beg++)); + VALUE v; + long i; + + for (i=0; i<RARRAY(ary)->len; i++) { + beg++; + v = rb_yield(LONG2NUM(beg++)); + if (i>=RARRAY(ary)->len) break; + RARRAY(ary)->ptr[i] = v; } } else { + p = RARRAY(ary)->ptr + beg; + pend = p + len; while (p < pend) { *p++ = item; } |