* gcc-interface/trans.c (elaborate_all_entities): Do not elaborate the

	entities of a package renaming another one.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@268674 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7594e9e919f1d759232ad5dcdc832f67dd26f178..c1a0d2499207e675ba656322f2700f082873ee99 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-02-08  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/trans.c (elaborate_all_entities): Do not elaborate the
+       entities of a package renaming another one.
+
 2019-02-08  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/trans.c (Regular_Loop_to_gnu): Replace tests on

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 3ea79648e5ddf5a66404d82c1f998145f3a3b287..71b626b291fae4304e69cfbe31a890cbf57f8109 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -9425,7 +9425,8 @@ elaborate_all_entities (Node_Id gnat_node)
 
        elaborate_all_entities (gnat_unit);
 
-       if (Ekind (gnat_entity) == E_Package)
+       if (Ekind (gnat_entity) == E_Package
+           && No (Renamed_Entity (gnat_entity)))
          elaborate_all_entities_for_package (gnat_entity);
 
        else if (Ekind (gnat_entity) == E_Generic_Package)