From 0850f23b69439560c36b0be88ff8e1e3ef4a9ef6 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 8 Feb 2019 11:19:51 +0000 Subject: [PATCH] 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 --- 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 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) -- 2.30.2