diff options
| author | Viljar Indus <indus@adacore.com> | 2024-07-19 10:34:03 +0300 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-29 15:06:28 +0200 |
| commit | bb7a1667125166f225d2987e968495713d737951 (patch) | |
| tree | 542c360f15f384aac9feb595f45c63541861ec35 | |
| parent | ad4c549ac201176288ffe60b54c4693a2b3b1a43 (diff) | |
| download | gcc-bb7a1667125166f225d2987e968495713d737951.zip gcc-bb7a1667125166f225d2987e968495713d737951.tar.gz gcc-bb7a1667125166f225d2987e968495713d737951.tar.bz2 | |
ada: Use the same warning character in continuation messages
For consitency sake the main and continuation messages should
use the same warning characters.
gcc/ada/
* exp_aggr.adb (Expand_Range_Component): Remove extra warning
character. Use same conditional warning char.
* freeze.adb (Warn_Overlay): Use named warning character.
* restrict.adb (Id_Case): Use named warning character.
* sem_prag.adb (Rewrite_Assertion_Kind): Use default warning
character.
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/restrict.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 83b88e7..846665e 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -7276,9 +7276,9 @@ package body Exp_Aggr is Error_Msg_Warn := SPARK_Mode /= On; Error_Msg_N ("!empty aggregate returned by the empty function of a container" - & " aggregate<<<", Parent (N)); + & " aggregate<<", Parent (N)); Error_Msg_N - ("\this will result in infinite recursion??", Parent (N)); + ("\this will result in infinite recursion<<", Parent (N)); end if; --------------------------- diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index f7fc895..882c026 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -11100,7 +11100,7 @@ package body Freeze is then Error_Msg_NE ("\packed array component& " & - "will be initialized to zero??", + "will be initialized to zero?o?", Nam, Comp); exit; else @@ -11112,7 +11112,7 @@ package body Freeze is Error_Msg_N ("\use pragma Import for & to " & - "suppress initialization (RM B.1(24))??", + "suppress initialization (RM B.1(24))?o?", Nam); end if; end Warn_Overlay; diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index bda35d8..2e3cdde 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -1262,7 +1262,7 @@ package body Restrict is -- Set as warning if warning case if Restriction_Warnings (R) then - Add_Str ("??"); + Add_Str ("?*?"); end if; -- Set main message diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 8792281..b139bd4 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -33719,7 +33719,7 @@ package body Sem_Prag is Error_Msg_N ("Check_Policy is a non-standard pragma??", N); Error_Msg_N ("\use Assertion_Policy and aspect names Pre/Post for " - & "Ada2012 conformance?", N); + & "Ada2012 conformance??", N); end if; return; |