einfo.adb, einfo.ads: Clarify use of Corresponding_Protected_Entry.
2010-09-09 Ed Schonberg <schonberg@adacore.com> * einfo.adb, einfo.ads: Clarify use of Corresponding_Protected_Entry. From-SVN: r164066
This commit is contained in:
parent
5042f726c5
commit
855f2f8c94
|
@ -1,3 +1,7 @@
|
||||||
|
2010-09-09 Ed Schonberg <schonberg@adacore.com>
|
||||||
|
|
||||||
|
* einfo.adb, einfo.ads: Clarify use of Corresponding_Protected_Entry.
|
||||||
|
|
||||||
2010-09-09 Javier Miranda <miranda@adacore.com>
|
2010-09-09 Javier Miranda <miranda@adacore.com>
|
||||||
|
|
||||||
* sem_ch3.adb (Is_Progenitor): Relocated to sem_type.
|
* sem_ch3.adb (Is_Progenitor): Relocated to sem_type.
|
||||||
|
|
|
@ -726,6 +726,8 @@ package body Einfo is
|
||||||
|
|
||||||
function Corresponding_Protected_Entry (Id : E) return E is
|
function Corresponding_Protected_Entry (Id : E) return E is
|
||||||
begin
|
begin
|
||||||
|
pragma Assert
|
||||||
|
(Ekind (Id) = E_Subprogram_Body);
|
||||||
return Node18 (Id);
|
return Node18 (Id);
|
||||||
end Corresponding_Protected_Entry;
|
end Corresponding_Protected_Entry;
|
||||||
|
|
||||||
|
|
|
@ -632,8 +632,8 @@ package Einfo is
|
||||||
-- where Comes_From_Source is always False.
|
-- where Comes_From_Source is always False.
|
||||||
|
|
||||||
-- Corresponding_Protected_Entry (Node18)
|
-- Corresponding_Protected_Entry (Node18)
|
||||||
-- Present in subrogram bodies that implement entries of protected
|
-- Present in subrogram bodies. Denotes the entry of a protected type
|
||||||
-- types.
|
-- that is implemented by the subprogram body.
|
||||||
|
|
||||||
-- Corresponding_Record_Type (Node18)
|
-- Corresponding_Record_Type (Node18)
|
||||||
-- Present in protected and task types and subtypes. References the
|
-- Present in protected and task types and subtypes. References the
|
||||||
|
@ -5439,6 +5439,7 @@ package Einfo is
|
||||||
-- E_Subprogram_Body
|
-- E_Subprogram_Body
|
||||||
-- Mechanism (Uint8)
|
-- Mechanism (Uint8)
|
||||||
-- First_Entity (Node17)
|
-- First_Entity (Node17)
|
||||||
|
-- Corresponding_Protected_Entry (Node18)
|
||||||
-- Last_Entity (Node20)
|
-- Last_Entity (Node20)
|
||||||
-- Scope_Depth_Value (Uint22)
|
-- Scope_Depth_Value (Uint22)
|
||||||
-- Scope_Depth (synth)
|
-- Scope_Depth (synth)
|
||||||
|
|
Loading…
Reference in New Issue