diff options
| -rw-r--r-- | gcc/java/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/java/java-tree.h | 20 |
2 files changed, 19 insertions, 8 deletions
diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog index 24f5c40..31c9785 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 73d4af2..03d3cc2 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. |