From 80bec905cbb7719a4f241ae859fa705a8d265894 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 1 Sep 2000 03:31:05 +0000
Subject: matz

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

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index f367322fd..be0303e0a 100644
--- a/eval.c
+++ b/eval.c
@@ -798,13 +798,12 @@ static rb_thread_t curr_thread = 0;
     if (ruby_scope->flag & SCOPE_DONT_RECYCLE) {\
 	if (_old) _old->flag |= SCOPE_DONT_RECYCLE;\
     }					\
-    else {				\
-	if (ruby_scope->flag == SCOPE_ALLOCA) {\
-	    ruby_scope->local_vars = 0;	\
-	    ruby_scope->local_tbl  = 0;	\
-	    if (ruby_scope != top_scope)\
-		rb_gc_force_recycle((VALUE)ruby_scope);\
-	}				\
+    if (!(ruby_scope->flag & SCOPE_MALLOC)) {\
+	ruby_scope->local_vars = 0;	\
+	ruby_scope->local_tbl  = 0;	\
+	if (ruby_scope != top_scope) {	\
+	    rb_gc_force_recycle((VALUE)ruby_scope);\
+        }				\
     }					\
     ruby_scope->flag |= SCOPE_NOSTACK;	\
     ruby_scope = _old;			\
@@ -3451,6 +3450,7 @@ rb_yield_0(val, self, klass, acheck)
 	switch (state) {
 	  case TAG_REDO:
 	    state = 0;
+	    CHECK_INTS;
 	    goto redo;
 	  case TAG_NEXT:
 	    state = 0;
@@ -5685,17 +5685,17 @@ scope_dup(scope)
     ID *tbl;
     VALUE *vars;
 
-    if (!(scope->flag & SCOPE_MALLOC)) {
-	if (scope->local_tbl) {
-	    tbl = scope->local_tbl;
-	    vars = ALLOC_N(VALUE, tbl[0]+1);
-	    *vars++ = scope->local_vars[-1];
-	    MEMCPY(vars, scope->local_vars, VALUE, tbl[0]);
-	    scope->local_vars = vars;
-	    scope->flag = SCOPE_MALLOC;
-	}
-    }
     scope->flag |= SCOPE_DONT_RECYCLE;
+    if (scope->flag & SCOPE_MALLOC) return;
+
+    if (scope->local_tbl) {
+	tbl = scope->local_tbl;
+	vars = ALLOC_N(VALUE, tbl[0]+1);
+	*vars++ = scope->local_vars[-1];
+	MEMCPY(vars, scope->local_vars, VALUE, tbl[0]);
+	scope->local_vars = vars;
+	scope->flag |= SCOPE_MALLOC;
+    }
 }
 
 static void
-- 
cgit