diff options
| author | Yannick Moy <moy@adacore.com> | 2020-11-25 14:59:54 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-17 05:49:20 -0500 |
| commit | 9ed2b86d1b367382be14dfbb7a083e10b1373f8f (patch) | |
| tree | 1566b0191dbe0969189eef6b4fdb698ea2b90458 /gcc/ada/sem_ch10.adb | |
| parent | 043d13792116b459cc3c3b1ba5cc7c40aec36719 (diff) | |
| download | gcc-9ed2b86d1b367382be14dfbb7a083e10b1373f8f.zip gcc-9ed2b86d1b367382be14dfbb7a083e10b1373f8f.tar.gz gcc-9ed2b86d1b367382be14dfbb7a083e10b1373f8f.tar.bz2 | |
[Ada] Fixes for GNAT error/warning messages
gcc/ada/
* checks.adb: Rework error messages.
* exp_ch3.adb: Likewise.
* freeze.adb: Likewise.
* lib-load.adb: Likewise.
* par-ch12.adb: Likewise.
* par-ch3.adb: Likewise.
* par-ch4.adb: Likewise.
* par-ch9.adb: Likewise.
* sem_aggr.adb: Likewise.
* sem_attr.adb: Likewise.
* sem_cat.adb: Likewise.
* sem_ch10.adb: Likewise.
* sem_ch12.adb: Likewise.
(Instantiate_Type): Fix CODEFIX comment, applicable only on
continuation message, and identify the second message as a
continuation.
* sem_ch13.adb: Rework error messages.
* sem_ch3.adb: Likewise.
* sem_ch4.adb: Likewise.
* sem_ch5.adb: Likewise.
* sem_ch6.adb: Likewise.
* sem_ch8.adb: Likewise.
* sem_ch9.adb: Likewise.
* sem_prag.adb: Likewise.
* sem_res.adb: Likewise.
* sem_util.adb: Likewise.
(Wrong_Type): Fix CODEFIX comment, applicable only on
continuation message, and identify the second message as a
continuation.
* symbols.adb: Rework error messages.
gcc/testsuite/
* gnat.dg/interface6.adb, gnat.dg/not_null.adb,
gnat.dg/protected_func.adb: Adjust error messages.
Diffstat (limited to 'gcc/ada/sem_ch10.adb')
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 2d1232e..e5519bf 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -6184,34 +6184,35 @@ package body Sem_Ch10 is null; when N_Subprogram_Declaration => - Error_Msg_N ("subprograms not allowed in limited with_clauses", N); + Error_Msg_N + ("subprogram not allowed in `LIMITED WITH` clause", N); return; when N_Generic_Package_Declaration | N_Generic_Subprogram_Declaration => - Error_Msg_N ("generics not allowed in limited with_clauses", N); + Error_Msg_N ("generic not allowed in `LIMITED WITH` clause", N); return; when N_Generic_Instantiation => Error_Msg_N - ("generic instantiations not allowed in limited with_clauses", + ("generic instantiation not allowed in `LIMITED WITH` clause", N); return; when N_Generic_Renaming_Declaration => Error_Msg_N - ("generic renamings not allowed in limited with_clauses", N); + ("generic renaming not allowed in `LIMITED WITH` clause", N); return; when N_Subprogram_Renaming_Declaration => Error_Msg_N - ("renamed subprograms not allowed in limited with_clauses", N); + ("renamed subprogram not allowed in `LIMITED WITH` clause", N); return; when N_Package_Renaming_Declaration => Error_Msg_N - ("renamed packages not allowed in limited with_clauses", N); + ("renamed package not allowed in `LIMITED WITH` clause", N); return; when others => |