From: Alexandre Petit-Bianco <apbianco@redhat.com>
Date: Fri, 3 Aug 2001 00:20:50 +0000 (-0700)
Subject: java-tree.h (all_class_filename): New macro.
X-Git-Tag: prereleases/libstdc++-3.0.95~2896
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=36e10d77f212d88ecc4f97fff8636cdb744c0cb9;p=thirdparty%2Fgcc.git

java-tree.h (all_class_filename): New macro.

2001-08-02  Alexandre Petit-Bianco  <apbianco@redhat.com>

	* java-tree.h (all_class_filename): New macro.
	(enum java_tree_index): New enum `JTI_ALL_CLASS_FILENAME.'
	(BUILD_FILENAME_IDENTIFIER_NODE): Fixed leading comment. Link
	newly created IDENTIFIER_NODE to `all_class_filename.'

(http://gcc.gnu.org/ml/gcc-patches/2001-08/msg00093.html)
 Proxima Estacion Esperanza

From-SVN: r44588
---

diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index 24f5c40ee8e7..31c9785ac3d1 100644
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,10 @@
+2001-08-02  Alexandre Petit-Bianco  <apbianco@redhat.com>
+
+	* java-tree.h (all_class_filename): New macro.
+	(enum java_tree_index): New enum `JTI_ALL_CLASS_FILENAME.'
+	(BUILD_FILENAME_IDENTIFIER_NODE): Fixed leading comment. Link
+	newly created IDENTIFIER_NODE to `all_class_filename.'
+
 2001-08-01  Jeff Sturm  <jsturm@one-point.com>
 
         * java-tree.h (BUILD_FILENAME_IDENTIFIER_NODE):
diff --git a/gcc/java/java-tree.h b/gcc/java/java-tree.h
index 73d4af2975d7..03d3cc2e3e60 100644
--- a/gcc/java/java-tree.h
+++ b/gcc/java/java-tree.h
@@ -135,6 +135,9 @@ extern int compiling_from_source;
 #define all_class_list \
   java_global_trees[JTI_ALL_CLASS_LIST]
 
+/* List of all class filenames seen so far.  */
+#define all_class_filename java_global_trees [JTI_ALL_CLASS_FILENAME]
+
 extern int flag_emit_class_files;
 
 extern int flag_filelist_file;
@@ -349,6 +352,7 @@ enum java_tree_index
   JTI_MAIN_CLASS,
   JTI_CURRENT_CLASS,
   JTI_ALL_CLASS_LIST,
+  JTI_ALL_CLASS_FILENAME,
 
   JTI_MAX
 };
@@ -1452,14 +1456,14 @@ extern tree *type_map;
    scope of TYPE_DECL.  */
 #define DECL_INNER_CLASS_LIST(NODE) DECL_INITIAL (NODE)
 
-/* Build a IDENTIFIER_POINTER for a file name we're considering. We
-   need to register the root, but we're trying to register it only
-   once.  */
-#define BUILD_FILENAME_IDENTIFIER_NODE(F, S)	\
-  if (!((F) = maybe_get_identifier ((S))))	\
-    {						\
-      (F) = get_identifier ((S));		\
-      ggc_add_tree_root (&(F), 1);		\
+/* Build a IDENTIFIER_NODE for a file name we're considering. Since
+   all_class_filename is a registered root, putting this identifier
+   in a TREE_LIST it holds keeps this node alive.  */
+#define BUILD_FILENAME_IDENTIFIER_NODE(F, S)		\
+  if (!((F) = maybe_get_identifier ((S))))		\
+    {							\
+      (F) = get_identifier ((S));			\
+      tree_cons ((F), NULL_TREE, all_class_filename);	\
     }
 
 /* Add a FIELD_DECL to RECORD_TYPE RTYPE.