Commit 4fa04e5c by Robert Dewar Committed by Arnaud Charlet

sem_ch6.ads: Minor comment updates.

2012-03-15  Robert Dewar  <dewar@adacore.com>

	* sem_ch6.ads: Minor comment updates.
	* sem_ch12.adb: Minor comment clarification.

From-SVN: r185412
parent b763dcaa
2012-03-15 Robert Dewar <dewar@adacore.com> 2012-03-15 Robert Dewar <dewar@adacore.com>
* sem_ch6.ads: Minor comment updates.
* sem_ch12.adb: Minor comment clarification.
2012-03-15 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb: Minor reformatting. * sem_ch5.adb: Minor reformatting.
2012-03-15 Ed Schonberg <schonberg@adacore.com> 2012-03-15 Ed Schonberg <schonberg@adacore.com>
......
...@@ -10433,9 +10433,11 @@ package body Sem_Ch12 is ...@@ -10433,9 +10433,11 @@ package body Sem_Ch12 is
Abandon_Instantiation (Actual); Abandon_Instantiation (Actual);
end if; end if;
-- In Ada 2012, actuals for access_to_subprograms must be subtype -- In accordance with AI05-288 (which is an Ada 2012 AI that is a
-- conformant with the generic formal. Previous to AI05-288 only mode -- binding intepretation to be applied to previous versions of Ada
-- conformance was required. -- as well as Ada 2012), actuals for access_to_subprograms must be
-- subtype conformant with the generic formal. Previous to AI05-288
-- only mode conformance was required.
Check_Subtype_Conformant Check_Subtype_Conformant
(Designated_Type (Act_T), (Designated_Type (Act_T),
......
...@@ -29,6 +29,7 @@ package Sem_Ch6 is ...@@ -29,6 +29,7 @@ package Sem_Ch6 is
type Conformance_Type is type Conformance_Type is
(Type_Conformant, Mode_Conformant, Subtype_Conformant, Fully_Conformant); (Type_Conformant, Mode_Conformant, Subtype_Conformant, Fully_Conformant);
-- pragma Ordered (Conformance_Type); -- pragma Ordered (Conformance_Type);
-- Why is above line commented out ???
-- Conformance type used in conformance checks between specs and bodies, -- Conformance type used in conformance checks between specs and bodies,
-- and for overriding. The literals match the RM definitions of the -- and for overriding. The literals match the RM definitions of the
-- corresponding terms. This is an ordered type, since each conformance -- corresponding terms. This is an ordered type, since each conformance
...@@ -149,7 +150,10 @@ package Sem_Ch6 is ...@@ -149,7 +150,10 @@ package Sem_Ch6 is
-- on the appropriate component of the New_Id construct if not. -- on the appropriate component of the New_Id construct if not.
-- Skip_Controlling_Formals is True when checking the conformance of -- Skip_Controlling_Formals is True when checking the conformance of
-- a subprogram that implements an interface operation. In that case, -- a subprogram that implements an interface operation. In that case,
-- only the non-controlling formals can (and must) be examined. -- only the non-controlling formals can (and must) be examined. The
-- argument Get_Inst is set to True when this is a check against a
-- formal access-to-subprogram type, indicating that mapping of types
-- is needed.
procedure Check_Type_Conformant procedure Check_Type_Conformant
(New_Id : Entity_Id; (New_Id : Entity_Id;
...@@ -167,8 +171,10 @@ package Sem_Ch6 is ...@@ -167,8 +171,10 @@ package Sem_Ch6 is
Get_Inst : Boolean := False) return Boolean; Get_Inst : Boolean := False) return Boolean;
-- Check that the types of two formal parameters are conforming. In most -- Check that the types of two formal parameters are conforming. In most
-- cases this is just a name comparison, but within an instance it involves -- cases this is just a name comparison, but within an instance it involves
-- generic actual types, and in the presence of anonymous access types it -- generic actual types, and in the presence of anonymous access types
-- must examine the designated types. -- it must examine the designated types. The argument Get_Inst is set to
-- True when this is a check against a formal access-to-subprogram type,
-- indicating that mapping of types is needed.
procedure Create_Extra_Formals (E : Entity_Id); procedure Create_Extra_Formals (E : Entity_Id);
-- For each parameter of a subprogram or entry that requires an additional -- For each parameter of a subprogram or entry that requires an additional
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment