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.

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 83b88e7cf734f6c1b5c7118874a59ffbdda39ab7..846665eae20ba3202699df9551427363bffb9aec 100644 (file)
--- 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 f7fc895055a1b7eda0b101f0654c18b658096232..882c026455ecc0fe1df35fb57173833c160dec99 100644 (file)
--- 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 bda35d8f441aac82909b5f861098029a1469c5f9..2e3cdde3d6e878aeacd7a7bf7ff8667453e65f9f 100644 (file)
--- 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 87922816a9a5348985549b71a5dc0c39cdd91ea1..b139bd4cf4e784639ff9088b4b288a1ddda54c17 100644 (file)
--- 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;