From 1d5e4deaa240636d8eea04f7539db5daddfe3708 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 27 May 2006 13:45:47 +0000
Subject: * eval.c (proc_invoke): save and restore block in the current frame. 
  fixed: [ruby-core:07833], [ruby-talk:191639]

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@10198 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 eval.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index 284a27102..7fbf3f2bc 100644
--- a/eval.c
+++ b/eval.c
@@ -8264,7 +8264,7 @@ static VALUE
 proc_invoke(VALUE proc, VALUE args /* OK */, VALUE self, VALUE klass)
 {
     struct BLOCK _block;
-    struct BLOCK *data;
+    struct BLOCK *data, *volatile old_block;
     volatile VALUE result = Qundef;
     int state;
     volatile int safe = ruby_safe_level;
@@ -8302,6 +8302,7 @@ proc_invoke(VALUE proc, VALUE args /* OK */, VALUE self, VALUE klass)
         _block.scope = scope;
     }
     /* modify current frame */
+    old_block = ruby_frame->block;
     ruby_frame->block = &_block;
     PUSH_TAG((pcall&YIELD_LAMBDA_CALL) ? PROT_LAMBDA : PROT_NONE);
     state = EXEC_TAG();
@@ -8314,6 +8315,7 @@ proc_invoke(VALUE proc, VALUE args /* OK */, VALUE self, VALUE klass)
 	result = prot_tag->retval;
     }
     POP_TAG();
+    ruby_frame->block = old_block;
     ruby_wrapper = old_wrapper;
     POP_VARS();
     if (proc_safe_level_p(proc))
-- 
cgit