]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
ada: Remove warning insertion characters from info messages
authorViljar Indus <indus@adacore.com>
Wed, 10 Apr 2024 12:20:33 +0000 (15:20 +0300)
committerMarc Poulhiès <poulhies@adacore.com>
Thu, 13 Jun 2024 13:30:33 +0000 (15:30 +0200)
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

gcc/ada/par-ch7.adb
gcc/ada/par-endh.adb
gcc/ada/sem_res.adb

index cd535e56bc2e5ae579e1ca38ad013f589b720f3a..c71e25770f35a39edde58746b2715c2b8b587911 100644 (file)
@@ -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;
 
index 0563051894d5326e188a778c0d5f2c5e2328e419..0345f8018ca0f385923aa6ecf563bdd22ce3014a 100644 (file)
@@ -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
index d2eca7c54591204fbe5f8eee5bed0225f52e6b81..c55e1f506048d9b7343b35ce979484b37094abb1 100644 (file)
@@ -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);