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_cat.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_cat.adb')
| -rw-r--r-- | gcc/ada/sem_cat.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index 7872c68..ee22113 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -1068,7 +1068,8 @@ package body Sem_Cat is and then not Private_Present (P) and then not Is_Remote_Call_Interface (E) then - Error_Msg_N ("public child of rci unit must also be rci unit", N); + Error_Msg_N + ("public child of 'R'C'I unit must also be 'R'C'I unit", N); end if; end if; end Validate_Categorization_Dependency; @@ -1580,21 +1581,21 @@ package body Sem_Cat is if Comes_From_Source (E) then if Is_Limited_Type (E) then Error_Msg_N - ("limited type not allowed in rci unit", Parent (E)); + ("limited type not allowed in 'R'C'I unit", Parent (E)); Explain_Limited_Type (E, Parent (E)); elsif Ekind (E) in E_Generic_Function | E_Generic_Package | E_Generic_Procedure then - Error_Msg_N ("generic declaration not allowed in rci unit", + Error_Msg_N ("generic declaration not allowed in 'R'C'I unit", Parent (E)); elsif (Ekind (E) = E_Function or else Ekind (E) = E_Procedure) and then Has_Pragma_Inline (E) then Error_Msg_N - ("inlined subprogram not allowed in rci unit", Parent (E)); + ("inlined subprogram not allowed in 'R'C'I unit", Parent (E)); -- Inner packages that are renamings need not be checked. Generic -- RCI packages are subject to the checks, but entities that come |