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

[Ada] More complete information level for -gnatR4 output

Browse Source 
This instructs -gnatR4 to also list the Etype of user-declared objects
if it is compiler-generated, for example in:

package P2 is

  Arr_V : array (1 .. 5) of Integer;

end P2;

2019-07-22  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* repinfo.adb (List_Entities): Also list compiled-generated
	types present as Etype of objects.

From-SVN: r273697
This commit is contained in:
Eric Botcazou 2019-07-22 13:58:41 +00:00 committed by Pierre-Marie de Rodat
parent ae3f653057
commit 46ebb491f1
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2019-07-22 Eric Botcazou <ebotcazou@adacore.com>
* repinfo.adb (List_Entities): Also list compiled-generated
types present as Etype of objects.
2019-07-22 Eric Botcazou <ebotcazou@adacore.com>
* sinfo.ads: Update the documentation about the

7
gcc/ada/repinfo.adb
View File

@ -563,6 +563,13 @@ package body Repinfo is
E_Loop_Parameter,
E_Variable)
then
-- The type is relevant for an object
if List_Representation_Info = 4 and then Is_Itype (Etype (E))
then
Relevant_Entities.Set (Etype (E), True);
end if;
if List_Representation_Info >= 2 then
List_Object_Info (E);
end if;