diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-10-14 22:45:15 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-25 08:22:34 -0500 |
commit | a24033ec70c80149a1021a6c9d171fb3f506e3a9 (patch) | |
tree | 41f86d3cb23c7deb158b22ece15d24f6db6883b3 /gcc | |
parent | eb0d08adb60fc39d59f8de378074b751a18cd184 (diff) | |
download | gcc-a24033ec70c80149a1021a6c9d171fb3f506e3a9.zip gcc-a24033ec70c80149a1021a6c9d171fb3f506e3a9.tar.gz gcc-a24033ec70c80149a1021a6c9d171fb3f506e3a9.tar.bz2 |
[Ada] Consistently use explicit Entity_Id type instead of alias
gcc/ada/
* einfo.adb: Replace "E" with Entity_Id in local object
declarations.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/einfo.adb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 3824b17..7f21e45 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -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 |