From: Jakub Jelinek <jakub@redhat.com>
Date: Fri, 16 Feb 2001 09:15:19 +0000 (+0100)
Subject: objc-act.c (start_class): Register implemented_classes with GC.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4f6bcad016abd36b7efb78a3ca2534aef2f3a107;p=gcc.git

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 9b72fc72f8a..d8181ef6860 100644
--- 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 9856f34e5ca..8da5c6bc578 100644
--- 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)
 	     {