* eval.c (rb_rescue2): restore cfp ([ruby-dev:30582]).

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12172 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 37 insertions, 27 deletions

diff --git a/ChangeLog b/ChangeLog
index 695a46ec6a..6f4a9968f7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Apr 12 17:11:54 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* eval.c (rb_rescue2): restore cfp ([ruby-dev:30582]).
+
 Thu Apr 12 16:06:48 2007  Koichi Sasada  <ko1@atdot.net>
 
 	* eval.c (rb_protect): restore cfp ([ruby-dev:30671]).
diff --git a/eval.c b/eval.c
index 6291e19a09..720b5f6afb 100644
--- a/eval.c
+++ b/eval.c
@@ -1327,8 +1327,10 @@ rb_rescue2(VALUE (*b_proc) (ANYARGS), VALUE data1, VALUE (*r_proc) (ANYARGS),
 	   VALUE data2, ...)
 {
     int state;
+    rb_thread_t *th = GET_THREAD();
+    rb_control_frame_t *cfp = th->cfp;
     volatile VALUE result;
-    volatile VALUE e_info = GET_THREAD()->errinfo;
+    volatile VALUE e_info = th->errinfo;
     va_list args;
 
     PUSH_TAG(PROT_NONE);
@@ -1336,38 +1338,42 @@ rb_rescue2(VALUE (*b_proc) (ANYARGS), VALUE data1, VALUE (*r_proc) (ANYARGS),
       retry_entry:
 	result = (*b_proc) (data1);
     }
-    else if (state == TAG_RAISE) {
-	int handle = Qfalse;
-	VALUE eclass;
+    else {
+	th->cfp = cfp; /* restore */
 
-	va_init_list(args, data2);
-	while (eclass = va_arg(args, VALUE)) {
-	    if (rb_obj_is_kind_of(GET_THREAD()->errinfo, eclass)) {
-		handle = Qtrue;
-		break;
+	if (state == TAG_RAISE) {
+	    int handle = Qfalse;
+	    VALUE eclass;
+
+	    va_init_list(args, data2);
+	    while (eclass = va_arg(args, VALUE)) {
+		if (rb_obj_is_kind_of(th->errinfo, eclass)) {
+		    handle = Qtrue;
+		    break;
+		}
 	    }
-	}
-	va_end(args);
+	    va_end(args);
 
-	if (handle) {
-	    if (r_proc) {
-		PUSH_TAG(PROT_NONE);
-		if ((state = EXEC_TAG()) == 0) {
-		    result = (*r_proc) (data2, GET_THREAD()->errinfo);
+	    if (handle) {
+		if (r_proc) {
+		    PUSH_TAG(PROT_NONE);
+		    if ((state = EXEC_TAG()) == 0) {
+			result = (*r_proc) (data2, th->errinfo);
+		    }
+		    POP_TAG();
+		    if (state == TAG_RETRY) {
+			state = 0;
+			th->errinfo = Qnil;
+			goto retry_entry;
+		    }
 		}
-		POP_TAG();
-		if (state == TAG_RETRY) {
+		else {
+		    result = Qnil;
 		    state = 0;
-		    GET_THREAD()->errinfo = Qnil;
-		    goto retry_entry;
 		}
-	    }
-	    else {
-		result = Qnil;
-		state = 0;
-	    }
-	    if (state == 0) {
-		GET_THREAD()->errinfo = e_info;
+		if (state == 0) {
+		    th->errinfo = e_info;
+		}
 	    }
 	}
     }