From da383d19ca8c1e6952e8b8441d5a63eb1c46f34f Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Fri, 8 Feb 2019 11:19:51 +0000 Subject: [PATCH] * 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/trans.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7594e9e919f1..c1a0d2499207 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-02-08 Eric Botcazou + + * gcc-interface/trans.c (elaborate_all_entities): Do not elaborate the + entities of a package renaming another one. + 2019-02-08 Eric Botcazou * 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 3ea79648e5dd..71b626b291fa 100644 --- 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) -- 2.47.2