===================================================================
@@ -3796,8 +3796,8 @@
and then Is_EVF_Expression (E)
then
Error_Msg_N
- ("formal parameter with Extensions_Visible False cannot be "
- & "implicitly converted to class-wide type", E);
+ ("formal parameter cannot be implicitly converted to "
+ & "class-wide type when Extensions_Visible is False", E);
end if;
end if;
===================================================================
@@ -22821,12 +22821,12 @@
Error_Msg_Sloc := Sloc (Over_Id);
Error_Msg_N
- ("\& declared # with Volatile_Function value `False`",
+ ("\& declared # with Volatile_Function value False",
Spec_Id);
Error_Msg_Sloc := Sloc (Spec_Id);
Error_Msg_N
- ("\overridden # with Volatile_Function value `True`",
+ ("\overridden # with Volatile_Function value True",
Spec_Id);
end if;
===================================================================
@@ -4596,8 +4596,8 @@
Extensions_Visible_True
then
Error_Msg_N
- ("formal parameter with Extensions_Visible False cannot act "
- & "as actual parameter", A);
+ ("formal parameter cannot act as actual parameter when "
+ & "Extensions_Visible is False", A);
Error_Msg_NE
("\subprogram & has Extensions_Visible True", A, Nam);
end if;
===================================================================
@@ -5246,8 +5246,8 @@
and then Is_EVF_Expression (Expr)
then
Error_Msg_N
- ("formal parameter with Extensions_Visible False cannot be "
- & "converted to class-wide type", Expr);
+ ("formal parameter cannot be converted to class-wide type when "
+ & "Extensions_Visible is False", Expr);
end if;
end Analyze_Type_Conversion;