From c27a8bce8a2d215cf265d15f8b57f379ad4d16a0 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Mon, 19 Aug 2019 08:37:34 +0000 Subject: [PATCH] [Ada] Einfo: update comments for E_Function and E_Procedure 2019-08-19 Gary Dismukes gcc/ada/ * einfo.ads (E_Function, E_Procedure): Update comments to reflect that Renamed_Entity is also used for nongeneric subprograms. From-SVN: r274665 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/einfo.ads | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f01e411b037..46121c5ac9b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2019-08-19 Gary Dismukes + + * einfo.ads (E_Function, E_Procedure): Update comments to + reflect that Renamed_Entity is also used for nongeneric + subprograms. + 2019-08-19 Eric Botcazou * sem_prag.adb (Is_Before_First_Decl): Deal with rewritten diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index b879753558d..089960a0054 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -4674,7 +4674,7 @@ package Einfo is -- They all overlap because they are supposed to apply to different entity -- kinds. They are semantically related, and have the following intended uses: --- a) Renamed_Entity appplies to entities in renaming declarations that rename +-- a) Renamed_Entity applies to entities in renaming declarations that rename -- an entity, so the value of the attribute IS an entity. This applies to -- generic renamings, package renamings, exception renamings, and subprograms -- renamings that rename a subprogram (rather than an attribute, an entry, a @@ -6141,7 +6141,7 @@ package Einfo is -- DTC_Entity (Node16) -- First_Entity (Node17) -- Alias (Node18) (non-generic case only) - -- Renamed_Entity (Node18) (generic case only) + -- Renamed_Entity (Node18) -- Extra_Accessibility_Of_Result (Node19) (non-generic case only) -- Last_Entity (Node20) -- Interface_Name (Node21) @@ -6467,7 +6467,7 @@ package Einfo is -- DTC_Entity (Node16) -- First_Entity (Node17) -- Alias (Node18) (non-generic case only) - -- Renamed_Entity (Node18) (generic case only) + -- Renamed_Entity (Node18) -- Receiving_Entry (Node19) (non-generic case only) -- Last_Entity (Node20) -- Interface_Name (Node21)