OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Unnesting: exclude selected components whose prefix carry no type

Browse Source 
2018-05-29  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* exp_unst.adb (Visit_Node): Exclude selected components whose prefix
	carry no type. Such selected components appear in unit names that are
	child units, both in the specification and possibly in an end label for
	the unit, and they do not contain any relevant uplevel references.

From-SVN: r260879
This commit is contained in:
Ed Schonberg 2018-05-29 09:41:45 +00:00 committed by Pierre-Marie de Rodat
parent ec3b72c55d
commit 14f8ba9ad1
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -1,3 +1,10 @@
2018-05-29 Ed Schonberg <schonberg@adacore.com>
* exp_unst.adb (Visit_Node): Exclude selected components whose prefix
carry no type. Such selected components appear in unit names that are
child units, both in the specification and possibly in an end label for
the unit, and they do not contain any relevant uplevel references.
2018-05-29 Arnaud Charlet <charlet@adacore.com>
* libgnat/a-calend.ads, libgnat/a-calend.adb (Epoch_Offset): Make it a

8
gcc/ada/exp_unst.adb
View File

@ -753,7 +753,13 @@ package body Exp_Unst is
-- simplify the processing here by examining all components
-- of the record.
elsif Nkind (N) = N_Selected_Component then
-- Selected components appear as unit names and end labels for
-- child units. The prefixes of these nodes denote parent
-- units and carry no type information so they are skipped.
elsif Nkind (N) = N_Selected_Component
and then Present (Etype (Prefix (N)))
then
declare
DT : Boolean := False;
begin