From 64ffdb44402f365198ba45c84fa15e449f3411e6 Mon Sep 17 00:00:00 2001 From: ko1 Date: Tue, 5 Jun 2007 17:55:07 +0000 Subject: * cont.c (rb_fiber_start): clear th->tag and check error to fix [ruby-dev:30888] and [ruby-dev:30889]. * eval_intern.h: fix rb_fiber_start() prototype. * test/ruby/test_fiber.rb: add tests for above. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12443 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- eval_intern.h | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'eval_intern.h') diff --git a/eval_intern.h b/eval_intern.h index abfb7794a9..5f6ba41b71 100644 --- a/eval_intern.h +++ b/eval_intern.h @@ -122,7 +122,7 @@ char *strrchr _((const char *, const char)); stmt; \ } \ else { \ - rb_fiber_start(th); \ + rb_fiber_start(); \ } while (0) #define TH_PUSH_TAG(th) do { \ @@ -193,6 +193,8 @@ int thread_reset_raised(rb_thread_t *th); VALUE rb_f_eval(int argc, VALUE *argv, VALUE self); VALUE rb_make_exception _((int argc, VALUE *argv)); +NORETURN(void rb_fiber_start(void)); + NORETURN(void rb_raise_jump _((VALUE))); NORETURN(void print_undef _((VALUE, ID))); NORETURN(void th_localjump_error(const char *, VALUE, int)); @@ -203,6 +205,7 @@ VALUE th_compile(rb_thread_t *th, VALUE str, VALUE file, VALUE line); NODE *th_get_cref(rb_thread_t *th, rb_iseq_t *iseq, rb_control_frame_t *cfp); NODE *th_cref_push(rb_thread_t *th, VALUE, int); NODE *th_set_special_cref(rb_thread_t *th, VALUE *lfp, NODE * cref_stack); +VALUE th_make_jump_tag_but_local_jump(int state, VALUE val); static rb_control_frame_t * th_get_ruby_level_cfp(rb_thread_t *th, rb_control_frame_t *cfp) -- cgit v1.2.3