From 55ec8ed2958a8159777157f7a4f91210279fe548 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 27 Oct 2004 09:16:20 +0000
Subject: * gc.c (gc_sweep): recover ruby_in_compile variable.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7120 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 gc.c | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'gc.c')

diff --git a/gc.c b/gc.c
index 549304a01a..dc5d9db75d 100644
--- a/gc.c
+++ b/gc.c
@@ -179,6 +179,7 @@ ruby_xfree(x)
 	RUBY_CRITICAL(free(x));
 }
 
+extern int ruby_in_compile;
 static int dont_gc;
 static int during_gc;
 static int need_call_final = 0;
@@ -1034,6 +1035,19 @@ gc_sweep()
     int i;
     unsigned long live = 0;
 
+    if (ruby_in_compile && ruby_parser_stack_on_heap()) {
+	/* should not reclaim nodes during compilation
+           if yacc's semantic stack is not allocated on machine stack */
+	for (i = 0; i < heaps_used; i++) {
+	    p = heaps[i].slot; pend = p + heaps[i].limit;
+	    while (p < pend) {
+		if (!(p->as.basic.flags&FL_MARK) && BUILTIN_TYPE(p) == T_NODE)
+		    gc_mark((VALUE)p, 0);
+		p++;
+	    }
+	}
+    }
+
     mark_source_filename(ruby_sourcefile);
     st_foreach(source_filenames, sweep_source_filename, 0);
 
@@ -1426,10 +1440,10 @@ rb_gc_start()
 
 void
 ruby_set_stack_size(size)
-    size_t *size;
+    size_t size;
 {
 #ifndef STACK_LEVEL_MAX
-    STACK_LEVEL_MAX = size;
+    STACK_LEVEL_MAX = size / sizeof(VALUE);
 #endif
 }
 
-- 
cgit v1.2.3