diff options
Diffstat (limited to 'gcc/ada/einfo-utils.adb')
| -rw-r--r-- | gcc/ada/einfo-utils.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index cbd957b..4e5f434 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -701,7 +701,7 @@ package body Einfo.Utils is -- Entry_Index_Type -- ---------------------- - function Entry_Index_Type (Id : E) return N is + function Entry_Index_Type (Id : E) return E is begin pragma Assert (Ekind (Id) = E_Entry_Family); return Etype (Discrete_Subtype_Definition (Parent (Id))); @@ -1745,7 +1745,7 @@ package body Einfo.Utils is -- Link_Entities -- ------------------- - procedure Link_Entities (First : Entity_Id; Second : Node_Id) is + procedure Link_Entities (First, Second : Entity_Id) is begin if Present (Second) then Set_Prev_Entity (Second, First); -- First <-- Second |