diff options
Diffstat (limited to 'gcc/ada/sem_elim.ads')
-rw-r--r-- | gcc/ada/sem_elim.ads | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/sem_elim.ads b/gcc/ada/sem_elim.ads index 53f0de0c9c0..9bb1596336d 100644 --- a/gcc/ada/sem_elim.ads +++ b/gcc/ada/sem_elim.ads @@ -52,9 +52,17 @@ package Sem_Elim is -- Checks if entity E is eliminated, and if so sets the Is_Eliminated -- flag on the given entity. + procedure Check_For_Eliminated_Subprogram (N : Node_Id; S : Entity_Id); + -- Check that the subprogram S (or its ultimate parent in the case of a + -- derived subprogram or renaming) has not been eliminated. An error will + -- be flagged if the subprogram has been eliminated, unless the node N + -- occurs within an eliminated subprogram or within a generic unit. The + -- error will be posted on N. + procedure Eliminate_Error_Msg (N : Node_Id; E : Entity_Id); - -- Called by the front-end and back-end on encountering a call to an - -- eliminated subprogram. N is the node for the call, and E is the - -- entity of the subprogram being eliminated. + -- Called by the front-end and back-end on encountering a reference to an + -- eliminated subprogram. N is the node for the reference (such as occurs + -- in a call or attribute), and E is the entity of the subprogram that has + -- been eliminated. end Sem_Elim; |