* gc.c (gc_sweep): recover ruby_in_compile variable.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@7120 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 16 insertions, 2 deletions

diff --git a/gc.c b/gc.c
index 549304a01..dc5d9db75 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
 }