diff options
Diffstat (limited to 'gcc/ada/sem_ch6.ads')
| -rw-r--r-- | gcc/ada/sem_ch6.ads | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/gcc/ada/sem_ch6.ads b/gcc/ada/sem_ch6.ads index bd4b730..7ebbcaa 100644 --- a/gcc/ada/sem_ch6.ads +++ b/gcc/ada/sem_ch6.ads @@ -64,18 +64,8 @@ package Sem_Ch6 is -- respective counterparts. procedure Check_Delayed_Subprogram (Designator : Entity_Id); - -- Designator can be a E_Subprogram_Type, E_Procedure or E_Function. If a - -- type in its profile depends on a private type without a full - -- declaration, indicate that the subprogram or type is delayed. - - procedure Check_Discriminant_Conformance - (N : Node_Id; - Prev : Entity_Id; - Prev_Loc : Node_Id); - -- Check that the discriminants of a full type N fully conform to the - -- discriminants of the corresponding partial view Prev. Prev_Loc indicates - -- the source location of the partial view, which may be different than - -- Prev in the case of private types. + -- Designator can be a E_Subprogram_Type, E_Procedure or E_Function. Set + -- Has_Delayed_Freeze on Designator if its freezing needs to be delayed. procedure Check_Formal_Subprogram_Conformance (New_Id : Entity_Id; |