diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-01-30 03:09:19 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-05 08:17:33 -0400 |
| commit | a4c17870b85470fa3b4727bfe2dbac7ca7464e50 (patch) | |
| tree | f40b0c0d93fa116e69f5440651fc0b46c0e8bbe2 /gcc/ada/par-ch4.adb | |
| parent | d3da83f66f13d371f8bb73443fed32d5c820484d (diff) | |
| download | gcc-a4c17870b85470fa3b4727bfe2dbac7ca7464e50.zip gcc-a4c17870b85470fa3b4727bfe2dbac7ca7464e50.tar.gz gcc-a4c17870b85470fa3b4727bfe2dbac7ca7464e50.tar.bz2 | |
[Ada] Minor wording changes wrt Ada 202x
2020-06-05 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* par-ch3.adb, par-ch4.adb, scng.adb, sem_aggr.adb,
sem_ch10.adb, sem_ch12.adb, sem_prag.adb: Update wording: change
Ada_2020 to Ada 2020 in comments and mention -gnat2020 instead
of -gnatX switch.
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index e759ce1..68d5664 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1690,8 +1690,10 @@ package body Ch4 is Set_Component_Associations (Aggregate_Node, Assoc_List); Set_Is_Homogeneous_Aggregate (Aggregate_Node); Scan; -- past right bracket + if Token = Tok_Apostrophe then Scan; + if Token = Tok_Identifier then return P_Reduction_Attribute_Reference (Aggregate_Node); end if; @@ -2928,7 +2930,7 @@ package body Ch4 is 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 -gnatX"); + Error_Msg_SC ("\compile with -gnat2020"); end if; Node1 := P_Name; @@ -3403,7 +3405,7 @@ package body Ch4 is if Ada_Version < Ada_2020 then Error_Msg_SC ("iterated component is an Ada 202x feature"); - Error_Msg_SC ("\compile with -gnatX"); + Error_Msg_SC ("\compile with -gnat2020"); end if; return Assoc_Node; |