diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-07-04 06:22:11 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-07-04 06:22:11 +0000 |
commit | 6243e4092053dd53f87fc00a7e5e8a6bb8bcac92 (patch) | |
tree | 2f5ccd68550d00789377bf27a4194c45a305be60 | |
parent | ba5a0701e44c24495728204ca00af0a1a048df7f (diff) | |
download | ruby-6243e4092053dd53f87fc00a7e5e8a6bb8bcac92.tar.gz |
* eval.c (rb_call): should not set prot_tag->blkid since it would
never catch breaks at this level. [ruby-dev:28922]
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10467 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | eval.c | 18 |
2 files changed, 16 insertions, 7 deletions
@@ -1,3 +1,8 @@ +Tue Jul 4 15:12:49 2006 Yukihiro Matsumoto <matz@ruby-lang.org> + + * eval.c (rb_call): should not set prot_tag->blkid since it would + never catch breaks at this level. [ruby-dev:28922] + Tue Jul 4 04:48:36 2006 Yukihiro Matsumoto <matz@ruby-lang.org> * bignum.c: ruby 1.9 HEAD 64 bit warnings clean up from @@ -785,10 +785,14 @@ static unsigned long block_unique = 1; _block.dyna_vars = ruby_dyna_vars; \ _block.wrapper = ruby_wrapper; \ _block.block_obj = 0; \ - _block.uniq = (b)?block_unique++:0; \ if (b) { \ + _block.uniq = block_unique++; \ prot_tag->blkid = _block.uniq; \ } \ + else { \ + _block.uniq = 0; \ + prot_tag->blkid = 0; \ + } \ (v) = &_block #define POP_BLOCK() } while (0) @@ -5915,15 +5919,15 @@ rb_call(VALUE klass, VALUE recv, ID mid, int state; PUSH_TAG(PROT_LOOP); - prot_tag->blkid = block->uniq; +// prot_tag->blkid = block->uniq; state = EXEC_TAG(); if (state == 0) { result = rb_call0(klass, recv, mid, id, argc, argv, block, body, noex); } - else if (state == TAG_BREAK && TAG_DST()) { - result = prot_tag->retval; - state = 0; - } +// else if (state == TAG_BREAK && TAG_DST()) { +// result = prot_tag->retval; +// state = 0; +// } POP_TAG(); if (state) JUMP_TAG(state); return result; @@ -8750,7 +8754,7 @@ passing_block(VALUE proc, struct BLOCK *blockp) if (!orphan) return data; *blockp = *data; - if (orphan) blockp->uniq = block_unique++; + blockp->uniq = block_unique++; return blockp; } |