diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 291e824..f984098 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -233,9 +233,6 @@ static GTY(()) vec<tree, va_gc> *global_decls; /* An array of builtin function declarations. */ static GTY(()) vec<tree, va_gc> *builtin_decls; -/* An array of global non-constant renamings. */ -static GTY(()) vec<tree, va_gc> *global_nonconstant_renamings; - /* A chain of unused BLOCK nodes. */ static GTY((deletable)) tree free_block_chain; @@ -322,9 +319,6 @@ destroy_gnat_utils (void) /* Destroy the hash table of padded types. */ pad_type_hash_table->empty (); pad_type_hash_table = NULL; - - /* Invalidate the global non-constant renamings. */ - invalidate_global_nonconstant_renamings (); } /* GNAT_ENTITY is a GNAT tree node for an entity. Associate GNU_DECL, a GCC @@ -2717,33 +2711,6 @@ process_attributes (tree *node, struct attrib **attr_list, bool in_place, *attr_list = NULL; } - -/* Record DECL as a global non-constant renaming. */ - -void -record_global_nonconstant_renaming (tree decl) -{ - gcc_assert (!DECL_LOOP_PARM_P (decl) && DECL_RENAMED_OBJECT (decl)); - vec_safe_push (global_nonconstant_renamings, decl); -} - -/* Invalidate the global non-constant renamings, lest their renamed object - contains SAVE_EXPRs tied to an elaboration routine. */ - -void -invalidate_global_nonconstant_renamings (void) -{ - unsigned int i; - tree iter; - - if (global_nonconstant_renamings == NULL) - return; - - FOR_EACH_VEC_ELT (*global_nonconstant_renamings, i, iter) - SET_DECL_RENAMED_OBJECT (iter, NULL_TREE); - - vec_free (global_nonconstant_renamings); -} /* Return true if VALUE is a known to be a multiple of FACTOR, which must be a power of 2. */ |