diff options
| author | apbianco <apbianco@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-08-03 00:20:50 +0000 |
|---|---|---|
| committer | apbianco <apbianco@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-08-03 00:20:50 +0000 |
| commit | 46fde5ebfe9799138be4c57125b011520c4ef454 (patch) | |
| tree | fc8a4c0f1e39f85ea16c56a7ccdd79ebcbcb35a3 /gcc/java/java-tree.h | |
| parent | a97cce538d4970d93e06d48d815fba9b83c49eb3 (diff) | |
| download | ppe42-gcc-46fde5ebfe9799138be4c57125b011520c4ef454.tar.gz ppe42-gcc-46fde5ebfe9799138be4c57125b011520c4ef454.zip | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@44588 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/java/java-tree.h')
| -rw-r--r-- | gcc/java/java-tree.h | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/gcc/java/java-tree.h b/gcc/java/java-tree.h index 73d4af2975d..03d3cc2e3e6 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. |
