Error_Msg_NE
("\which is a component of untagged type& in the profile "
& "of primitive & of type % that is frozen by the "
- & "declaration ", N, Typ);
+ & "declaration", N, Typ);
end if;
end if;
end Check_Premature_Freezing;
then
Error_Msg_NE
("aggregate not available for type& whose ancestor "
- & "has unknown discriminants ", N, Typ);
+ & "has unknown discriminants", N, Typ);
end if;
if Has_Unknown_Discriminants (Typ)
and then Is_Preelaborated (Depended_Entity)
then
Error_Msg_NE
- ("<<must use private with clause for preelaborated unit& ",
+ ("<<must use private with clause for preelaborated unit&",
N, Depended_Entity);
-- Subunit case
if E2 = WEnt then
Error_Msg_N
- ("unlimited view visible through use clause ", W);
+ ("unlimited view visible through use clause", W);
return;
end if;
end if;
and then Chars (Act_Decl_Id) = Chars (Prefix (Gen_Id))
then
Error_Msg_N
- ("& is hidden within declaration of instance ", Prefix (Gen_Id));
+ ("& is hidden within declaration of instance", Prefix (Gen_Id));
end if;
Set_Entity (Gen_Id, Gen_Unit);
elsif Is_Class_Wide_Type (T) then
Error_Msg_N
- ("initialization required in class-wide declaration ", N);
+ ("initialization required in class-wide declaration", N);
else
Error_Msg_N
elsif not Is_Tagged_Type (Parent_Type) then
Error_Msg_N
- ("parent of type extension must be a tagged type ", Indic);
+ ("parent of type extension must be a tagged type", Indic);
goto Leave;
elsif Ekind (Parent_Type) in E_Void | E_Incomplete_Type then
and then Nkind (N) = N_Private_Type_Declaration
then
Error_Msg_NE
- ("declaration of private } must be a tagged type ", Id, Prev);
+ ("declaration of private } must be a tagged type", Id, Prev);
else
Error_Msg_NE
- ("full declaration of } must be a tagged type ", Id, Prev);
+ ("full declaration of } must be a tagged type", Id, Prev);
end if;
else
and then Nkind (N) = N_Private_Type_Declaration
then
Error_Msg_NE
- ("declaration of private } must be a tagged type ", Prev, Id);
+ ("declaration of private } must be a tagged type", Prev, Id);
else
Error_Msg_NE
- ("full declaration of } must be a tagged type ", Prev, Id);
+ ("full declaration of } must be a tagged type", Prev, Id);
end if;
end if;
end Tag_Mismatch;
else
if not Is_Entity_Name (N) or else not Is_Type (Entity (N)) then
- Error_Msg_N ("invalid subtype mark in discrete range ", N);
+ Error_Msg_N ("invalid subtype mark in discrete range", N);
Set_Etype (N, Any_Integer);
return;
-- If result is Any_Type, then we did not find a compatible pair
if Etype (N) = Any_Type then
- Error_Msg_N ("incompatible types in range ", N);
+ Error_Msg_N ("incompatible types in range", N);
end if;
end if;
Error_Msg_N
("ambiguous bounds in range of iteration", R_Copy);
Error_Msg_N ("\possible interpretations:", R_Copy);
- Error_Msg_NE ("\\} ", R_Copy, Found);
- Error_Msg_NE ("\\} ", R_Copy, It.Typ);
+ Error_Msg_NE ("\\}", R_Copy, Found);
+ Error_Msg_NE ("\\}", R_Copy, It.Typ);
exit;
end if;
end if;
if Kind = E_Generic_Procedure
and then Nkind (Spec) /= N_Procedure_Specification
then
- Error_Msg_N ("invalid body for generic procedure ", Body_Id);
+ Error_Msg_N ("invalid body for generic procedure", Body_Id);
return;
elsif Kind = E_Generic_Function
and then Nkind (Spec) /= N_Function_Specification
then
- Error_Msg_N ("invalid body for generic function ", Body_Id);
+ Error_Msg_N ("invalid body for generic function", Body_Id);
return;
end if;
if Present (Actuals) then
Analyze_Call_And_Resolve;
else
- Error_Msg_N ("missing explicit dereference in call ", N);
+ Error_Msg_N ("missing explicit dereference in call", N);
end if;
-- If not an access to subprogram, then the prefix must resolve to the
and then Operator_Matches_Spec (Spec_Id, Spec_Id)
then
Error_Msg_NE
- ("subprogram& overrides predefined operator ",
+ ("subprogram& overrides predefined operator",
Body_Spec, Spec_Id);
-- Overriding indicators aren't allowed for protected subprogram
elsif Can_Override_Operator (Subp) then
Error_Msg_NE
- ("subprogram& overrides predefined operator ", Spec, Subp);
+ ("subprogram& overrides predefined operator", Spec, Subp);
end if;
elsif Must_Override (Spec) then
Old_S := Find_Renamed_Entity (N, Selector_Name (Nam), New_S);
if Old_S = Any_Id then
- Error_Msg_N (" no subprogram or entry matches specification", N);
+ Error_Msg_N ("no subprogram or entry matches specification", N);
else
if Is_Body then
Check_Subtype_Conformant (New_S, Old_S, N);
end if;
if Original_Subprogram (Old_S) = Rename_Spec then
- Error_Msg_N ("unfrozen subprogram cannot rename itself ", N);
+ Error_Msg_N ("unfrozen subprogram cannot rename itself", N);
else
Check_Formal_Subprogram_Conformance (New_S, Old_S, Spec);
end if;
if Nkind (Call) = N_Explicit_Dereference then
Error_Msg_N
- ("entry call or dispatching primitive of interface required ", N);
+ ("entry call or dispatching primitive of interface required", N);
end if;
if Is_Non_Empty_List (Statements (N)) then
(Nkind (Delay_Statement (Alt)) = N_Delay_Relative_Statement)
then
Error_Msg_N
- ("delay_until and delay_relative alternatives ", Alt);
+ ("delay_until and delay_relative alternatives", Alt);
Error_Msg_N
("\cannot appear in the same selective_wait", Alt);
end if;
elsif Nkind (Trigger) = N_Explicit_Dereference then
Error_Msg_N
- ("entry call or dispatching primitive of interface required ",
+ ("entry call or dispatching primitive of interface required",
Trigger);
end if;
end if;
Set_Is_Overloaded (Name, False);
else
Error_Pragma_Arg
- ("ambiguous handler name for pragma% ", Arg);
+ ("ambiguous handler name for pragma%", Arg);
end if;
end if;
then
Is_Remote := False;
Error_Msg_N
- ("prefix must statically denote a remote subprogram ",
+ ("prefix must statically denote a remote subprogram",
N);
end if;