summaryrefslogtreecommitdiff
path: root/gc.c
diff options
context:
space:
mode:
Diffstat (limited to 'gc.c')
-rw-r--r--gc.c18
1 files changed, 16 insertions, 2 deletions
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
}