aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorViljar Indus <indus@adacore.com>2024-04-10 15:20:33 +0300
committerMarc Poulhiès <poulhies@adacore.com>2024-06-13 15:30:33 +0200
commit01acbd863241d631958eb1d61e1e530f362f67e8 (patch)
treef486eabf9c13c68da4eadfbc890861299c7234a7
parent0a406917be8d6a299abab0c67b74ba70a8bd9aa9 (diff)
downloadgcc-01acbd863241d631958eb1d61e1e530f362f67e8.zip
gcc-01acbd863241d631958eb1d61e1e530f362f67e8.tar.gz
gcc-01acbd863241d631958eb1d61e1e530f362f67e8.tar.bz2
ada: Remove warning insertion characters from info messages
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
-rw-r--r--gcc/ada/par-ch7.adb2
-rw-r--r--gcc/ada/par-endh.adb2
-rw-r--r--gcc/ada/sem_res.adb2
3 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/par-ch7.adb b/gcc/ada/par-ch7.adb
index cd535e5..c71e257 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 0563051..0345f80 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 d2eca7c..c55e1f5 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);