diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-11 12:55:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-11 12:55:15 +0200 |
| commit | b785e0b8753dee45572f0ab735bb8752a3a888b0 (patch) | |
| tree | 4b9620f7abc9d4d6fc9b39bd50a4d05c5aaf88c8 /gcc/ada/sem_util.adb | |
| parent | 2e57f88b778de597f3bd3ed2fbe2b634eb46fc2d (diff) | |
| download | gcc-b785e0b8753dee45572f0ab735bb8752a3a888b0.zip gcc-b785e0b8753dee45572f0ab735bb8752a3a888b0.tar.gz gcc-b785e0b8753dee45572f0ab735bb8752a3a888b0.tar.bz2 | |
[multiple changes]
2014-06-11 Robert Dewar <dewar@adacore.com>
* debug.adb: Add debug flag -gnatd.q.
* erroutc.adb (Prescan_Message): Bomb if untagged warning with
-gnatd.q set.
* styleg.adb (Check_Xtra_Parens): Message should be a style
message.
* sem_aggr.adb, sem_ch3.adb, exp_ch9.adb, checks.adb, sem_prag.adb,
par-endh.adb, eval_fat.adb, freeze.adb, sem_util.adb, sem_attr.adb,
sem_elab.adb, sem_ch6.adb, sem_warn.adb, sem_cat.adb,
sem_ch13.adb, lib-xref.adb: Add remaining warning tags.
2014-06-11 Ben Brosgol <brosgol@adacore.com>
* gnat_rm.texi: Revised chapter on Implementation Defined
Characteristics.
From-SVN: r211448
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index ba472b9..624687e 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -638,7 +638,7 @@ package body Sem_Util is is begin Error_Msg_Warn := Warn; - Error_Msg_N ("unrecognized attribute&<", N); + Error_Msg_N ("unrecognized attribute&<<", N); -- Check for possible misspelling @@ -646,7 +646,7 @@ package body Sem_Util is while Error_Msg_Name_1 <= Last_Attribute_Name loop if Is_Bad_Spelling_Of (Nam, Error_Msg_Name_1) then Error_Msg_N -- CODEFIX - ("\possible misspelling of %<", N); + ("\possible misspelling of %<<", N); exit; end if; @@ -1555,7 +1555,7 @@ package body Sem_Util is else Error_Msg_NE - ("?static expression fails static predicate check on &", + ("??static expression fails static predicate check on &", Expr, Typ); end if; end if; @@ -2087,7 +2087,7 @@ package body Sem_Util is Error_Msg_N ("writable function parameter may affect " & "value in other component because order " - & "of evaluation is unspecified?", + & "of evaluation is unspecified??", Node (First_Elmt (Writable_Actuals_List))); end if; end if; |