* gc.c (gc_sweep): should mark parser.

* parse.y (rb_gc_mark_parser): new function.
* intern.h (rb_gc_mark_parser): added.


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

4 files changed, 19 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 687c42e72..ea12004e3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+Fri Sep  6 05:03:50 2002  Minero Aoki  <aamine@loveruby.net>
+
+	* gc.c (gc_sweep): should mark parser.
+
+	* parse.y (rb_gc_mark_parser): new function.
+
+	* intern.h (rb_gc_mark_parser): added.
+
 Thu Sep  5 18:32:32 2002  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* variable.c (rb_path2class): should not use rb_eval_string().
diff --git a/gc.c b/gc.c
index 03c47fc83..84842b3d6 100644
--- a/gc.c
+++ b/gc.c
@@ -1186,6 +1186,8 @@ rb_gc()
 
     /* mark generic instance variables for special constants */
     rb_mark_generic_ivar_tbl();
+
+    rb_gc_mark_parser();
     
     /* gc_mark objects whose marking are not completed*/
     while (!MARK_STACK_EMPTY){
diff --git a/intern.h b/intern.h
index acbf33d12..84a92b3db 100644
--- a/intern.h
+++ b/intern.h
@@ -292,6 +292,7 @@ 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));
+void rb_gc_mark_parser _((void));
 int rb_is_const_id _((ID));
 int rb_is_instance_id _((ID));
 int rb_is_class_id _((ID));
diff --git a/parse.y b/parse.y
index 702252acf..61f89072d 100644
--- a/parse.y
+++ b/parse.y
@@ -5358,6 +5358,14 @@ ruby_parser_stack_on_heap()
 }
 
 void
+rb_gc_mark_parser()
+{
+    if (ruby_in_compile) {
+        rb_gc_mark_maybe(yylval.val);
+    }
+}
+
+void
 rb_parser_append_print()
 {
     ruby_eval_tree =