aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gcc-interface/trans.c
diff options
context:
space:
mode:
authorGhjuvan Lacambre <lacambre@adacore.com>2021-05-21 11:14:13 +0200
committerEric Botcazou <ebotcazou@adacore.com>2021-05-21 11:14:13 +0200
commit4a29b8d62726d100e1c5ea1e3401309a1437c6be (patch)
tree39abbe1e89fe0212f618e7b8fc1c295a51bde681 /gcc/ada/gcc-interface/trans.c
parentdd9a8fff14eda90fcaa3ac4b6b68ceded72a6af5 (diff)
downloadgcc-4a29b8d62726d100e1c5ea1e3401309a1437c6be.zip
gcc-4a29b8d62726d100e1c5ea1e3401309a1437c6be.tar.gz
gcc-4a29b8d62726d100e1c5ea1e3401309a1437c6be.tar.bz2
Replace ? with ?? in warning messages
The former has been deprecated in favor of the latter. gcc/ada/ * gcc-interface/decl.c (gnat_to_gnu_entity): Replace ? with ??. (gnat_to_gnu_param): Likewise. (gnat_to_gnu_subprog_type): Likewise. (warn_on_field_placement): Likewise. (intrin_arglists_compatible_p): Likewise. * gcc-interface/trans.c (Pragma_to_gnu): Likewise. (gnat_to_gnu): Likewise. (validate_unchecked_conversion): Likewise. * gcc-interface/utils.c (maybe_pad_type): Likewise.
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
-rw-r--r--gcc/ada/gcc-interface/trans.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index adbbbb1..289a2ef 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -1453,17 +1453,17 @@ Pragma_to_gnu (Node_Id gnat_node)
{
case Name_Off:
if (optimize)
- post_error ("must specify -O0?", gnat_node);
+ post_error ("must specify -O0??", gnat_node);
break;
case Name_Space:
if (!optimize_size)
- post_error ("must specify -Os?", gnat_node);
+ post_error ("must specify -Os??", gnat_node);
break;
case Name_Time:
if (!optimize)
- post_error ("insufficient -O value?", gnat_node);
+ post_error ("insufficient -O value??", gnat_node);
break;
default:
@@ -1473,7 +1473,7 @@ Pragma_to_gnu (Node_Id gnat_node)
case Pragma_Reviewable:
if (write_symbols == NO_DEBUG)
- post_error ("must specify -g?", gnat_node);
+ post_error ("must specify -g??", gnat_node);
break;
case Pragma_Warning_As_Error:
@@ -1574,17 +1574,17 @@ Pragma_to_gnu (Node_Id gnat_node)
option_index = find_opt (option_string + 1, lang_mask);
if (option_index == OPT_SPECIAL_unknown)
{
- post_error ("?unknown -W switch", gnat_node);
+ post_error ("unknown -W switch??", gnat_node);
break;
}
else if (!(cl_options[option_index].flags & CL_WARNING))
{
- post_error ("?-W switch does not control warning", gnat_node);
+ post_error ("-W switch does not control warning??", gnat_node);
break;
}
else if (!(cl_options[option_index].flags & lang_mask))
{
- post_error ("?-W switch not valid for Ada", gnat_node);
+ post_error ("-W switch not valid for Ada??", gnat_node);
break;
}
if (cl_options[option_index].flags & CL_JOINED)
@@ -6970,7 +6970,7 @@ gnat_to_gnu (Node_Id gnat_node)
if (align != 0 && align < oalign && !TYPE_ALIGN_OK (gnu_obj_type))
post_error_ne_tree_2
- ("?source alignment (^) '< alignment of & (^)",
+ ("??source alignment (^) '< alignment of & (^)",
gnat_node, Designated_Type (Etype (gnat_node)),
size_int (align / BITS_PER_UNIT), oalign / BITS_PER_UNIT);
}
@@ -8285,7 +8285,7 @@ gnat_to_gnu (Node_Id gnat_node)
/* If the result is a constant that overflowed, raise Constraint_Error. */
if (TREE_CODE (gnu_result) == INTEGER_CST && TREE_OVERFLOW (gnu_result))
{
- post_error ("?`Constraint_Error` will be raised at run time", gnat_node);
+ post_error ("??`Constraint_Error` will be raised at run time", gnat_node);
gnu_result
= build1 (NULL_EXPR, gnu_result_type,
build_call_raise (CE_Overflow_Check_Failed, gnat_node,
@@ -10322,7 +10322,7 @@ validate_unchecked_conversion (Node_Id gnat_node)
|| !alias_sets_conflict_p (get_alias_set (gnu_source_desig_type),
target_alias_set)))
{
- post_error_ne ("?possible aliasing problem for type&",
+ post_error_ne ("??possible aliasing problem for type&",
gnat_node, Target_Type (gnat_node));
post_error ("\\?use -fno-strict-aliasing switch for references",
gnat_node);
@@ -10348,7 +10348,7 @@ validate_unchecked_conversion (Node_Id gnat_node)
|| !alias_sets_conflict_p (get_alias_set (gnu_source_desig_type),
target_alias_set)))
{
- post_error_ne ("?possible aliasing problem for type&",
+ post_error_ne ("??possible aliasing problem for type&",
gnat_node, Target_Type (gnat_node));
post_error ("\\?use -fno-strict-aliasing switch for references",
gnat_node);