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/par-ch4.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/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index c1e781c..cf00364 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1233,7 +1233,7 @@ package body Ch4 is Attr_Node := New_Node (N_Attribute_Reference, Token_Ptr); Set_Attribute_Name (Attr_Node, Attr_Name); if Attr_Name /= Name_Reduce then - Error_Msg ("reduce attribute expected", Prev_Token_Ptr); + Error_Msg ("Reduce attribute expected", Prev_Token_Ptr); end if; Set_Prefix (Attr_Node, S); @@ -1584,7 +1584,7 @@ package body Ch4 is elsif Token = Tok_With then Error_Msg_SC ("WITH must be preceded by single expression in " & - "extension aggregate"); + "extension aggregate"); raise Error_Resync; -- Range attribute can only appear as part of a discrete choice list |