[Ada] Remove inconsistent colons in messages for Ada 83 violations
gcc/ada/ * par-ch3.adb (P_Modular_Type_Definition): Remove colon from error message. * sem_ch11.adb (Check_Duplication): Likewise. * sem_ch3.adb (Derived_Type_Declaration): Likewise.
This commit is contained in:
parent
027ed68ca0
commit
64f4351d83
@ -2430,7 +2430,7 @@ package body Ch3 is
|
||||
|
||||
begin
|
||||
if Ada_Version = Ada_83 then
|
||||
Error_Msg_SC ("(Ada 83): modular types not allowed");
|
||||
Error_Msg_SC ("(Ada 83) modular types not allowed");
|
||||
end if;
|
||||
|
||||
Typedef_Node := New_Node (N_Modular_Type_Definition, Token_Ptr);
|
||||
|
||||
@ -127,7 +127,7 @@ package body Sem_Ch11 is
|
||||
and then Comes_From_Source (Id)
|
||||
then
|
||||
Error_Msg_N
|
||||
("(Ada 83): duplicate exception choice&", Id);
|
||||
("(Ada 83) duplicate exception choice&", Id);
|
||||
end if;
|
||||
end if;
|
||||
end if;
|
||||
|
||||
@ -16943,7 +16943,7 @@ package body Sem_Ch3 is
|
||||
then
|
||||
if Ada_Version = Ada_83 and then Comes_From_Source (Indic) then
|
||||
Error_Msg_N
|
||||
("(Ada 83): premature use of type for derivation", Indic);
|
||||
("(Ada 83) premature use of type for derivation", Indic);
|
||||
end if;
|
||||
end if;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user