From: Eric Botcazou Date: Fri, 8 Feb 2019 11:19:51 +0000 (+0000) Subject: trans.c (elaborate_all_entities): Do not elaborate the entities of a package renaming... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0850f23b69439560c36b0be88ff8e1e3ef4a9ef6;p=gcc.git trans.c (elaborate_all_entities): Do not elaborate the entities of a package renaming another one. * gcc-interface/trans.c (elaborate_all_entities): Do not elaborate the entities of a package renaming another one. From-SVN: r268674 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7594e9e919f..c1a0d249920 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 3ea79648e5d..71b626b291f 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)