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_util.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_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index bb078d2..b849ef2 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -10463,7 +10463,7 @@ package body Sem_Util is then if Cursor /= Any_Type then Error_Msg_N - ("Operation First for iterable type must be unique", Aspect); + ("operation First for iterable type must be unique", Aspect); return Any_Type; else Cursor := Etype (Func); @@ -29703,10 +29703,10 @@ package body Sem_Util is and then Covers (Designated_Type (Expec_Type), Designated_Type (Found_Type)) then - Error_Msg_N -- CODEFIX + Error_Msg_N ("result must be general access type!", Expr); Error_Msg_NE -- CODEFIX - ("add ALL to }!", Expr, Expec_Type); + ("\add ALL to }!", Expr, Expec_Type); -- Another special check, if the expected type is an integer type, -- but the expression is of type System.Address, and the parent is |