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-ch6.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-ch6.adb')
| -rw-r--r-- | gcc/ada/par-ch6.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 004ca12..145fbc4 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -1620,9 +1620,8 @@ package body Ch6 is -- the time being. elsif Token = Tok_With then - if Ada_Version < Ada_2020 then - Error_Msg_SP ("aspect on formal parameter requires -gnat2020"); - end if; + Error_Msg_Ada_2020_Feature + ("aspect on formal parameter", Token_Ptr); P_Aspect_Specifications (Specification_Node, False); |