objc-act.c (start_class): Register implemented_classes with GC.

	* objc/objc-act.c (start_class): Register implemented_classes with
	GC.

From-SVN: r39756

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 9b72fc7..d8181ef 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-16  Jakub Jelinek  <jakub@redhat.com>
+
+       * objc/objc-act.c (start_class): Register implemented_classes with
+       GC.
+
 2001-02-16  Neil Booth  <neil@daikokuya.demon.co.uk>
 
         * cppfiles.c (_cpp_make_system_header): Generate a file

diff --git a/gcc/objc/objc-act.c b/gcc/objc/objc-act.c
index 9856f34..8da5c6b 100644 (file)
--- a/gcc/objc/objc-act.c
+++ b/gcc/objc/objc-act.c
@@ -6130,7 +6130,10 @@ start_class (code, class_name, super_name, protocol_list)
     {
       {
         static tree implemented_classes = 0;
-        tree chain = implemented_classes;
+        tree chain;
+
+       if (!implemented_classes)
+         ggc_add_tree_root (&implemented_classes, 1);
         for (chain = implemented_classes; chain; chain = TREE_CHAIN (chain))
            if (TREE_VALUE (chain) == class_name)
             {