mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* proc.c (proc_new): force to rewrite errinfo when calling Proc.new in ensure.
[Bug #5234] [ruby-core:39125] This code will be removed after changing throw mechanism (see r33064). * vm.c (rb_vm_rewrite_dfp_in_errinfo): new function. * vm.c (vm_make_env_each): changed accordingly. * vm_core.h: ditto. * bootstraptest/test_flow.rb: add tests for above. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@33096 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
7412263eba
commit
a09e7139a3
5 changed files with 52 additions and 16 deletions
14
ChangeLog
14
ChangeLog
|
@ -1,3 +1,17 @@
|
|||
Sat Aug 27 18:53:51 2011 Kazuki Tsujimoto <kazuki@callcc.net>
|
||||
|
||||
* proc.c (proc_new): force to rewrite errinfo when calling Proc.new in ensure.
|
||||
[Bug #5234] [ruby-core:39125]
|
||||
This code will be removed after changing throw mechanism (see r33064).
|
||||
|
||||
* vm.c (rb_vm_rewrite_dfp_in_errinfo): new function.
|
||||
|
||||
* vm.c (vm_make_env_each): changed accordingly.
|
||||
|
||||
* vm_core.h: ditto.
|
||||
|
||||
* bootstraptest/test_flow.rb: add tests for above.
|
||||
|
||||
Sat Aug 27 18:44:06 2011 NARUSE, Yui <naruse@ruby-lang.org>
|
||||
|
||||
* internal.h (rb_strftime_timespec): move to time.c because it depends
|
||||
|
|
|
@ -530,6 +530,19 @@ assert_equal %Q{ENSURE\n}, %q{
|
|||
end
|
||||
end
|
||||
e = Bug2729.new
|
||||
}],
|
||||
['[ruby-core:39125]', %q{
|
||||
class Bug5234
|
||||
include Enumerable
|
||||
def each
|
||||
begin
|
||||
yield :foo
|
||||
ensure
|
||||
proc
|
||||
end
|
||||
end
|
||||
end
|
||||
e = Bug5234.new
|
||||
}]].each do |bug, src|
|
||||
assert_equal "foo", src + %q{e.detect {true}}, bug
|
||||
assert_equal "true", src + %q{e.any? {true}}, bug
|
||||
|
|
1
proc.c
1
proc.c
|
@ -418,6 +418,7 @@ proc_new(VALUE klass, int is_lambda)
|
|||
}
|
||||
|
||||
procval = rb_vm_make_proc(th, block, klass);
|
||||
rb_vm_rewrite_dfp_in_errinfo(th, cfp);
|
||||
|
||||
if (is_lambda) {
|
||||
rb_proc_t *proc;
|
||||
|
|
39
vm.c
39
vm.c
|
@ -410,22 +410,7 @@ vm_make_env_each(rb_thread_t * const th, rb_control_frame_t * const cfp,
|
|||
/* TODO */
|
||||
env->block.iseq = 0;
|
||||
} else {
|
||||
/* rewrite dfp in errinfo to point to heap */
|
||||
if (cfp->iseq->type == ISEQ_TYPE_RESCUE ||
|
||||
cfp->iseq->type == ISEQ_TYPE_ENSURE) {
|
||||
VALUE errinfo = env->env[0]; /* #$! */
|
||||
if (RB_TYPE_P(errinfo, T_NODE)) {
|
||||
VALUE *escape_dfp = GET_THROWOBJ_CATCH_POINT(errinfo);
|
||||
if (! ENV_IN_HEAP_P(th, escape_dfp)) {
|
||||
VALUE dfpval = *escape_dfp;
|
||||
if (CLASS_OF(dfpval) == rb_cEnv) {
|
||||
rb_env_t *dfpenv;
|
||||
GetEnvPtr(dfpval, dfpenv);
|
||||
SET_THROWOBJ_CATCH_POINT(errinfo, (VALUE)(dfpenv->env + dfpenv->local_size));
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
rb_vm_rewrite_dfp_in_errinfo(th, cfp);
|
||||
}
|
||||
return envval;
|
||||
}
|
||||
|
@ -488,6 +473,28 @@ rb_vm_make_env_object(rb_thread_t * th, rb_control_frame_t *cfp)
|
|||
return envval;
|
||||
}
|
||||
|
||||
VALUE
|
||||
rb_vm_rewrite_dfp_in_errinfo(rb_thread_t *th, rb_control_frame_t *cfp)
|
||||
{
|
||||
/* rewrite dfp in errinfo to point to heap */
|
||||
if (RUBY_VM_NORMAL_ISEQ_P(cfp->iseq) &&
|
||||
(cfp->iseq->type == ISEQ_TYPE_RESCUE ||
|
||||
cfp->iseq->type == ISEQ_TYPE_ENSURE)) {
|
||||
VALUE errinfo = cfp->dfp[-2]; /* #$! */
|
||||
if (RB_TYPE_P(errinfo, T_NODE)) {
|
||||
VALUE *escape_dfp = GET_THROWOBJ_CATCH_POINT(errinfo);
|
||||
if (! ENV_IN_HEAP_P(th, escape_dfp)) {
|
||||
VALUE dfpval = *escape_dfp;
|
||||
if (CLASS_OF(dfpval) == rb_cEnv) {
|
||||
rb_env_t *dfpenv;
|
||||
GetEnvPtr(dfpval, dfpenv);
|
||||
SET_THROWOBJ_CATCH_POINT(errinfo, (VALUE)(dfpenv->env + dfpenv->local_size));
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
rb_vm_stack_to_heap(rb_thread_t *th)
|
||||
{
|
||||
|
|
|
@ -649,6 +649,7 @@ VALUE rb_vm_invoke_proc(rb_thread_t *th, rb_proc_t *proc, VALUE self,
|
|||
int argc, const VALUE *argv, const rb_block_t *blockptr);
|
||||
VALUE rb_vm_make_proc(rb_thread_t *th, const rb_block_t *block, VALUE klass);
|
||||
VALUE rb_vm_make_env_object(rb_thread_t *th, rb_control_frame_t *cfp);
|
||||
VALUE rb_vm_rewrite_dfp_in_errinfo(rb_thread_t *th, rb_control_frame_t *cfp);
|
||||
void rb_vm_inc_const_missing_count(void);
|
||||
void rb_vm_gvl_destroy(rb_vm_t *vm);
|
||||
VALUE rb_vm_call(rb_thread_t *th, VALUE recv, VALUE id, int argc,
|
||||
|
|
Loading…
Reference in a new issue