diff options
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 27f2abd9708..64dd828a050 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -108,6 +108,12 @@ package Sem_Util is -- place error message on node N. Used in object declarations, type -- conversions, qualified expressions. + procedure Check_Obsolescent (Nam : Entity_Id; N : Node_Id); + -- Nam is either a subprogram or a (generic) package entity. This procedure + -- checks if the Is_Obsolescent flag is set and if so, outputs appropriate + -- diagnostics (it also checks the appropriate restriction). N is the node + -- to which error messages are attached. + procedure Check_Potentially_Blocking_Operation (N : Node_Id); -- N is one of the statement forms that is a potentially blocking -- operation. If it appears within a protected action, emit warning. |