diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2020-06-23 18:02:07 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2020-06-23 18:35:46 +0200 |
| commit | 5bdd063b9d8082cb8c8ede2721f1f425d3b952f0 (patch) | |
| tree | ac5e1dccfac67272224c2b532db82f4c076a4162 /gcc/ada/gcc-interface/ada-tree.h | |
| parent | cd42cdc225a905cb1eb38dfad453e654261a659e (diff) | |
| download | gcc-5bdd063b9d8082cb8c8ede2721f1f425d3b952f0.zip gcc-5bdd063b9d8082cb8c8ede2721f1f425d3b952f0.tar.gz gcc-5bdd063b9d8082cb8c8ede2721f1f425d3b952f0.tar.bz2 | |
Streamline implementation of renaming in gigi
The main changes are 1) the bulk of the implementation is put back entirely
in gnat_to_gnu_entity and 2) the handling of lvalues is unified, i.e. it no
longer depends on the Materialize_Entity flag being present on the entity.
gcc/ada/ChangeLog:
* gcc-interface/ada-tree.h (DECL_RENAMED_OBJECT): Delete.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Always use
the stabilized reference directly for renaming and create a variable
pointing to it separately if requested.
* gcc-interface/misc.c (gnat_print_decl): Adjust for deletion.
* gcc-interface/trans.c (Identifier_to_gnu): Likewise.
(gnat_to_gnu) <N_Object_Renaming_Declaration>:
Do not deal with side-effects here.
<N_Exception_Renaming_Declaration>: Likewise.
Diffstat (limited to 'gcc/ada/gcc-interface/ada-tree.h')
| -rw-r--r-- | gcc/ada/gcc-interface/ada-tree.h | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/ada/gcc-interface/ada-tree.h b/gcc/ada/gcc-interface/ada-tree.h index 11bfc37..461fa2b 100644 --- a/gcc/ada/gcc-interface/ada-tree.h +++ b/gcc/ada/gcc-interface/ada-tree.h @@ -525,13 +525,6 @@ do { \ #define SET_DECL_INDUCTION_VAR(NODE, X) \ SET_DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE), X) -/* In a VAR_DECL without the DECL_LOOP_PARM_P flag set and that is a renaming - pointer, points to the object being renamed, if any. */ -#define DECL_RENAMED_OBJECT(NODE) \ - GET_DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE)) -#define SET_DECL_RENAMED_OBJECT(NODE, X) \ - SET_DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE), X) - /* In a TYPE_DECL, points to the parallel type if any, otherwise 0. */ #define DECL_PARALLEL_TYPE(NODE) \ GET_DECL_LANG_SPECIFIC (TYPE_DECL_CHECK (NODE)) |