From: Viljar Indus <in...@adacore.com>

Remove warning insertion characters without switch characters
from info messages.

gcc/ada/

        * par-ch7.adb: Remove warning characters from info message
        * par-endh.adb: Remove warning characters from info message
        * sem_res.adb: Remove warning characters from info message

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/par-ch7.adb  | 2 +-
 gcc/ada/par-endh.adb | 2 +-
 gcc/ada/sem_res.adb  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/par-ch7.adb b/gcc/ada/par-ch7.adb
index cd535e56bc2..c71e25770f3 100644
--- a/gcc/ada/par-ch7.adb
+++ b/gcc/ada/par-ch7.adb
@@ -233,7 +233,7 @@ package body Ch7 is
                if Aspect_Sloc /= No_Location
                  and then not Aspect_Specifications_Present
                then
-                  Error_Msg_SC ("info: aspect specifications belong here??");
+                  Error_Msg_SC ("info: aspect specifications belong here");
                   Move_Aspects (From => Dummy_Node, To => Package_Node);
                end if;
 
diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb
index 0563051894d..0345f8018ca 100644
--- a/gcc/ada/par-endh.adb
+++ b/gcc/ada/par-endh.adb
@@ -412,7 +412,7 @@ package body Endh is
                      Error_Msg_SC
                        ("misplaced aspects for package declaration");
                      Error_Msg
-                       ("info: aspect specifications belong here??", Is_Loc);
+                       ("info: aspect specifications belong here", Is_Loc);
                      P_Aspect_Specifications (Empty, Semicolon => True);
 
                   --  Other cases where aspect specifications are not allowed
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index d2eca7c5459..c55e1f50604 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -7397,7 +7397,7 @@ package body Sem_Res is
                else
                   if Debug_Flag_Underscore_F then
                      Error_Msg_NE
-                       ("info: analyzing call to & in context?", N, Nam_UA);
+                       ("info: analyzing call to & in context", N, Nam_UA);
                   end if;
 
                   Expand_Inlined_Call (N, Nam_UA, Nam);
-- 
2.45.1

Reply via email to