mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-23 15:01:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Consistently use explicit Entity_Id type instead of alias

Browse Source 
gcc/ada/

	* einfo.adb: Replace "E" with Entity_Id in local object
	declarations.
This commit is contained in:
Piotr Trojanek 2020-10-14 22:45:15 +02:00 committed by Pierre-Marie de Rodat
parent eb0d08adb6
commit a24033ec70
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gcc/ada/einfo.adb
View File

@ -7360,7 +7360,7 @@ package body Einfo is
---------------------
function Designated_Type (Id : E) return E is
Desig_Type : E;
Desig_Type : Entity_Id;
begin
Desig_Type := Directly_Designated_Type (Id);
@ -7427,7 +7427,7 @@ package body Einfo is
---------------------
function First_Component (Id : E) return E is
Comp_Id : E;
Comp_Id : Entity_Id;
begin
pragma Assert
@ -7449,7 +7449,7 @@ package body Einfo is
-------------------------------------
function First_Component_Or_Discriminant (Id : E) return E is
Comp_Id : E;
Comp_Id : Entity_Id;
begin
pragma Assert
@ -7472,7 +7472,7 @@ package body Einfo is
------------------
function First_Formal (Id : E) return E is
Formal : E;
Formal : Entity_Id;
begin
pragma Assert
@ -7513,7 +7513,7 @@ package body Einfo is
------------------------------
function First_Formal_With_Extras (Id : E) return E is
Formal : E;
Formal : Entity_Id;
begin
pragma Assert
@ -8437,7 +8437,7 @@ package body Einfo is
-----------------
function Last_Formal (Id : E) return E is
Formal : E;
Formal : Entity_Id;
begin
pragma Assert
@ -8593,7 +8593,7 @@ package body Einfo is
--------------------
function Next_Component (Id : E) return E is
Comp_Id : E;
Comp_Id : Entity_Id;
begin
Comp_Id := Next_Entity (Id);
@ -8610,7 +8610,7 @@ package body Einfo is
------------------------------------
function Next_Component_Or_Discriminant (Id : E) return E is
Comp_Id : E;
Comp_Id : Entity_Id;
begin
Comp_Id := Next_Entity (Id);
@ -8669,7 +8669,7 @@ package body Einfo is
-----------------
function Next_Formal (Id : E) return E is
P : E;
P : Entity_Id;
begin
-- Follow the chain of declared entities as long as the kind of the
@ -9133,7 +9133,7 @@ package body Einfo is
---------------
function Root_Type (Id : E) return E is
T, Etyp : E;
T, Etyp : Entity_Id;
begin
pragma Assert (Nkind (Id) in N_Entity);
@ -10124,7 +10124,7 @@ package body Einfo is
when Array_Kind =>
declare
Index : E;
Index : Entity_Id;
begin
Write_Attribute