yugui	2008-12-01 19:42:31 +0900 (Mon, 01 Dec 2008)

  New Revision: 20437

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=20437

  Log:
    merges r20432 from trunk into ruby_1_9_1.
    * cont.c (rb_fiber_start): calls with exact argument number.
      [ruby-core:20088]

  Modified files:
    branches/ruby_1_9_1/ChangeLog
    branches/ruby_1_9_1/cont.c
    branches/ruby_1_9_1/test/ruby/test_fiber.rb

Index: ruby_1_9_1/ChangeLog
===================================================================
--- ruby_1_9_1/ChangeLog	(revision 20436)
+++ ruby_1_9_1/ChangeLog	(revision 20437)
@@ -1,3 +1,8 @@
+Mon Dec  1 12:00:45 2008  Nobuyoshi Nakada  <nobu@r...>
+
+	* cont.c (rb_fiber_start): calls with exact argument number.
+	  [ruby-core:20088]
+
 Mon Dec  1 16:06:15 2008  NAKAMURA Usaku  <usa@r...>
 
 	* signal.c (register_sigaltstack): no need to define on non-sigaltstack
Index: ruby_1_9_1/cont.c
===================================================================
--- ruby_1_9_1/cont.c	(revision 20436)
+++ ruby_1_9_1/cont.c	(revision 20437)
@@ -25,6 +25,7 @@
 typedef struct rb_context_struct {
     enum context_type type;
     VALUE self;
+    int argc;
     VALUE value;
     VALUE *vm_stack;
 #ifdef CAPTURE_JUST_VALID_VM_STACK
@@ -558,6 +559,7 @@
 	}
     }
 
+    cont->argc = argc;
     cont->value = make_passing_arg(argc, argv);
 
     cont_restore_0(cont, &contval);
@@ -685,7 +687,6 @@
     rb_fiber_t *fib;
     rb_context_t *cont;
     rb_proc_t *proc;
-    VALUE args;
     int state;
 
     GetFiberPtr(th->fiber, fib);
@@ -693,15 +694,18 @@
 
     TH_PUSH_TAG(th);
     if ((state = EXEC_TAG()) == 0) {
+	int argc;
+	VALUE *argv, args;
 	GetProcPtr(cont->saved_thread.first_proc, proc);
 	args = cont->value;
+	argv = (argc = cont->argc) > 1 ? RARRAY_PTR(args) : &args;
 	cont->value = Qnil;
 	th->errinfo = Qnil;
 	th->local_lfp = proc->block.lfp;
 	th->local_svar = Qnil;
 
 	fib->status = RUNNING;
-	cont->value = vm_invoke_proc(th, proc, proc->block.self, 1, &args, 0);
+	cont->value = vm_invoke_proc(th, proc, proc->block.self, argc, argv, 0);
     }
     TH_POP_TAG();
 
@@ -798,6 +802,7 @@
 	fib->prev = rb_fiber_current();
     }
 
+    cont->argc = argc;
     cont->value = make_passing_arg(argc, argv);
 
     if ((value = fiber_store(fib)) == Qundef) {
Index: ruby_1_9_1/test/ruby/test_fiber.rb
===================================================================
--- ruby_1_9_1/test/ruby/test_fiber.rb	(revision 20436)
+++ ruby_1_9_1/test/ruby/test_fiber.rb	(revision 20437)
@@ -14,6 +14,10 @@
     assert_equal([:a, :b], Fiber.new{|a, b| [a, b]}.resume(:a, :b))
   end
 
+  def test_argument
+    assert_equal(4, Fiber.new {|i=4| i}.resume)
+  end
+
   def test_term
     assert_equal(:ok, Fiber.new{:ok}.resume)
     assert_equal([:a, :b, :c, :d, :e],

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/