diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-25 12:34:45 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-17 05:49:23 -0500 |
| commit | 81392ae7baf3e6d8a5d9910f0d4f6b571a52afe3 (patch) | |
| tree | 5f90e9794277f018ce335dda9c96ed0f532bee14 /gcc/ada/par-ch4.adb | |
| parent | 84be0369c8d3a6c94f46906d901d2c5426fb9174 (diff) | |
| download | gcc-81392ae7baf3e6d8a5d9910f0d4f6b571a52afe3.zip gcc-81392ae7baf3e6d8a5d9910f0d4f6b571a52afe3.tar.gz gcc-81392ae7baf3e6d8a5d9910f0d4f6b571a52afe3.tar.bz2 | |
[Ada] Consistent wording for missing -gnat2020 switch
gcc/ada/
* par-ch3.adb (P_Identifier_Declarations): Reuse
Error_Msg_Ada_2020_Feature for object renaming without subtype.
* par-ch4.adb (P_Primary): Likewise for target name.
(P_Iterated_Component_Association): Likewise for iterated
component.
(P_Declare_Expression): Likewise for declare expression.
* par-ch6.adb (P_Formal_Part): Likewise for aspect on formal
parameter.
* sem_aggr.adb (Resolve_Delta_Aggregate): Ditto.
* sem_ch8.adb (Analyze_Object_Renaming): Reuse
Error_Msg_Ada_2020_Feature.
* sem_ch13.adb (Validate_Aspect_Aggregate): Reuse
Error_Msg_Ada_2020_Feature; use lower case for "aspect" and
don't use underscore for "Ada_2020"; don't give up on analysis
in Ada 2012 mode.
(Validate_Aspect_Stable_Properties): Reuse
Error_Msg_Ada_2020_Feature; use lower case for "aspect"; minor
style fixes.
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index cf00364..340668e 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -2928,10 +2928,7 @@ package body Ch4 is Scan; -- past minus when Tok_At_Sign => -- AI12-0125 : target_name - if Ada_Version < Ada_2020 then - Error_Msg_SC ("target name is an Ada 202x feature"); - Error_Msg_SC ("\compile with -gnat2020"); - end if; + Error_Msg_Ada_2020_Feature ("target name", Token_Ptr); Node1 := P_Name; return Node1; @@ -3507,10 +3504,7 @@ package body Ch4 is Set_Expression (Assoc_Node, P_Expression); end if; - if Ada_Version < Ada_2020 then - Error_Msg_SC ("iterated component is an Ada 202x feature"); - Error_Msg_SC ("\compile with -gnat2020"); - end if; + Error_Msg_Ada_2020_Feature ("iterated component", Token_Ptr); return Assoc_Node; end P_Iterated_Component_Association; @@ -3695,9 +3689,7 @@ package body Ch4 is Result : constant Node_Id := Make_Expression_With_Actions (Loc, Actions, Expression); begin - if Ada_Version < Ada_2020 then - Error_Msg ("declare_expression is an Ada 2020 feature", Loc); - end if; + Error_Msg_Ada_2020_Feature ("declare expression", Loc); return Result; end; |