ko1	2008-07-02 02:11:35 +0900 (Wed, 02 Jul 2008)

  New Revision: 17784

  Modified files:
    trunk/ChangeLog
    trunk/proc.c
    trunk/vm.c

  Log:
    * proc.c, vm.c: fix to refer next ruby level cfp to make binding.
    



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

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ChangeLog?r1=17784&r2=17783&diff_format=u
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/proc.c?r1=17784&r2=17783&diff_format=u
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/vm.c?r1=17784&r2=17783&diff_format=u

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 17783)
+++ ChangeLog	(revision 17784)
@@ -1,3 +1,7 @@
+Wed Jul  2 02:02:34 2008  Koichi Sasada  <ko1@a...>
+
+	* proc.c, vm.c: fix to refer next ruby level cfp to make binding.
+
 Wed Jul  2 01:58:19 2008  NAKAMURA Usaku  <usa@r...>
 
 	* insns.def (trace): C99ism.
Index: proc.c
===================================================================
--- proc.c	(revision 17783)
+++ proc.c	(revision 17784)
@@ -271,11 +271,13 @@
     return bindval;
 }
 
+rb_control_frame_t *vm_get_ruby_level_next_cfp(rb_thread_t *th, rb_control_frame_t *cfp);
+
 VALUE
 rb_binding_new(void)
 {
     rb_thread_t *th = GET_THREAD();
-    rb_control_frame_t *cfp = vm_get_ruby_level_caller_cfp(th, th->cfp);
+    rb_control_frame_t *cfp = vm_get_ruby_level_next_cfp(th, th->cfp);
     VALUE bindval = binding_alloc(rb_cBinding);
     rb_binding_t *bind;
 
Index: vm.c
===================================================================
--- vm.c	(revision 17783)
+++ vm.c	(revision 17784)
@@ -96,7 +96,7 @@
     }
 }
 
-static rb_control_frame_t *
+rb_control_frame_t *
 vm_get_ruby_level_next_cfp(rb_thread_t *th, rb_control_frame_t *cfp)
 {
     while (!RUBY_VM_CONTROL_FRAME_STACK_OVERFLOW_P(th, cfp)) {

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