github
/
ruby
зеркало из https://github.com/github/ruby.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

* compile.c, vm.c, insns.def: call FrozenCore.set_postexe method 

instead to use "postexe" insn.
* id.c, id.h: add a prepared id for above.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@17779 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ko1 2008-07-01 12:19:00 +00:00
Родитель 1b62e5ec37
Коммит 807fbd6940
6 изменённых файлов: 39 добавлений и 26 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

7
ChangeLog
Просмотреть файл

@ -1,3 +1,10 @@
Tue Jul 1 21:13:17 2008 Koichi Sasada <ko1@atdot.net>
* compile.c, vm.c, insns.def: call FrozenCore.set_postexe method
instead to use "postexe" insn.
* id.c, id.h: add a prepared id for above.
Tue Jul 1 21:09:58 2008 URABE Shyouhei <shyouhei@ruby-lang.org>
* lib/mkmf.rb (create_tmpsrc): we need to include COMMON_HEADERS,

10
compile.c
Просмотреть файл

@ -4528,9 +4528,13 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
}
case NODE_POSTEXE:{
VALUE block = NEW_CHILD_ISEQVAL(node->nd_body, make_name_for_block(iseq), ISEQ_TYPE_BLOCK);
ADD_INSN1(ret, nd_line(node), postexe, block);
if (!poped) {
ADD_INSN(ret, nd_line(node), putnil);
ADD_INSN1(ret, nd_line(node), putspecialobject, INT2FIX(VM_SPECIAL_OBJECT_VMCORE));
ADD_INSN1(ret, nd_line(node), putiseq, block);
ADD_SEND (ret, nd_line(node), ID2SYM(id_core_set_postexe), INT2FIX(1));
if (poped) {
ADD_INSN(ret, nd_line(node), pop);
}
break;
}

1
id.c
Просмотреть файл

@ -74,4 +74,5 @@ Init_id(void)
id_core_undef_method = rb_intern("core_undef_method");
id_core_define_method = rb_intern("core_define_method");
id_core_define_singleton_method = rb_intern("core_define_singleton_method");
id_core_set_postexe = rb_intern("core_set_postexe");
}

1
id.h
Просмотреть файл

@ -58,5 +58,6 @@ extern ID id_core_set_variable_alias;
extern ID id_core_undef_method;
extern ID id_core_define_method;
extern ID id_core_define_singleton_method;
extern ID id_core_set_postexe;
#endif /* RUBY_ID_H */

23
insns.def
Просмотреть файл

@ -840,29 +840,6 @@ defined
}
}
/**
@c setting
@e END{}
@j END{} に対応するためにブロックを登録する。
*/
DEFINE_INSN
postexe
(ISEQ blockiseq)
()
()
{
rb_block_t *blockptr;
VALUE proc;
extern void rb_call_end_proc(VALUE data);
blockptr = RUBY_VM_GET_BLOCK_PTR_IN_CFP(GET_CFP());
blockptr->iseq = blockiseq;
blockptr->proc = 0;
proc = vm_make_proc(th, GET_CFP(), blockptr);
rb_set_end_proc(rb_call_end_proc, proc);
}
/**
@c setting
@e trace

23
vm.c
Просмотреть файл

@ -1669,6 +1669,28 @@ m_core_define_singleton_method(VALUE self, VALUE cbase, VALUE sym, VALUE iseqval
return Qnil;
}
static VALUE
m_core_set_postexe(VALUE self, VALUE iseqval)
{
rb_iseq_t *blockiseq;
rb_block_t *blockptr;
rb_thread_t *th = GET_THREAD();
rb_control_frame_t *cfp = vm_get_ruby_level_next_cfp(th, th->cfp);
VALUE proc;
extern void rb_call_end_proc(VALUE data);
GetISeqPtr(iseqval, blockiseq);
blockptr = RUBY_VM_GET_BLOCK_PTR_IN_CFP(cfp);
blockptr->iseq = blockiseq;
blockptr->proc = 0;
proc = vm_make_proc(th, cfp, blockptr);
rb_set_end_proc(rb_call_end_proc, proc);
return Qnil;
}
VALUE insns_name_array(void);
extern VALUE *rb_gc_stack_start;
extern size_t rb_gc_stack_maxsize;
@ -1725,6 +1747,7 @@ Init_VM(void)
rb_define_singleton_method(rb_mRubyVMFrozenCore, "core_undef_method", m_core_undef_method, 2);
rb_define_singleton_method(rb_mRubyVMFrozenCore, "core_define_method", m_core_define_method, 3);
rb_define_singleton_method(rb_mRubyVMFrozenCore, "core_define_singleton_method", m_core_define_singleton_method, 3);
rb_define_singleton_method(rb_mRubyVMFrozenCore, "core_set_postexe", m_core_set_postexe, 1);
rb_obj_freeze(rb_mRubyVMFrozenCore);
/* ::VM::Env */