diff options
-rw-r--r-- | ChangeLog | 11 | ||||
-rw-r--r-- | gc.c | 5 | ||||
-rw-r--r-- | intern.h | 1 | ||||
-rw-r--r-- | parse.y | 10 | ||||
-rw-r--r-- | ruby.c | 5 |
5 files changed, 29 insertions, 3 deletions
@@ -1,3 +1,14 @@ +Mon Sep 2 21:21:46 2002 Minero Aoki <aamine@loveruby.net> + + * gc.c (gc_sweep): does reclaim nodes in also compile time, if we + can. + + * ruby.c (load_file): omit GC if we can. + + * parse.y (ruby_parser_stack_on_heap): new function. + + * intern.h (ruby_parser_stack_on_heap): added. + Sun Sep 1 15:54:33 2002 WATANABE Hirofumi <eban@ruby-lang.org> * config.guess: fixed for Linux/PPC. @@ -863,8 +863,9 @@ gc_sweep() int freed = 0; int i, used = heaps_used; - if (ruby_in_compile) { - /* should not reclaim nodes during compilation */ + 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 < used; i++) { p = heaps[i]; pend = p + heaps_limits[i]; while (p < pend) { @@ -291,6 +291,7 @@ int yyparse _((void)); ID rb_id_attrset _((ID)); void rb_parser_append_print _((void)); void rb_parser_while_loop _((int, int)); +int ruby_parser_stack_on_heap _((void)); int rb_is_const_id _((ID)); int rb_is_instance_id _((ID)); int rb_is_class_id _((ID)); @@ -5341,6 +5341,16 @@ dyna_in_block() return (lvtbl->dlev > 0); } +int +ruby_parser_stack_on_heap() +{ +#if defined(YYBISON) && !defined(C_ALLOCA) + return Qfalse; +#else + return Qtrue; +#endif +} + void rb_parser_append_print() { @@ -856,7 +856,10 @@ load_file(fname, script) else if (f != rb_stdin) { rb_io_close(f); } - rb_gc(); + + if (ruby_parser_stack_on_heap()) { + rb_gc(); + } } void |