diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-02-03 05:22:57 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-05 08:17:55 -0400 |
| commit | 4ccf713e545cc77ba13218c12ec47d21b01bab4e (patch) | |
| tree | 4dfd70840e312ec3ef5b0f4398924e19e1fc3366 /gcc/ada/scng.adb | |
| parent | 3af132b801a6e58c530a6571117df51bca6f6572 (diff) | |
| download | gcc-4ccf713e545cc77ba13218c12ec47d21b01bab4e.tar.gz | |
[Ada] Support 'Reduce under -gnatX
2020-06-05 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* scng.adb (Scan): Fix typo to take into account all future
versions of Ada.
* sem_attr.ads (Attribute_Impl_Def): Add Attribute_Reduce for
now.
* sem_attr.adb (Analyze_Attribute): Only allow 'Reduce under
-gnatX.
* snames.ads-tmpl (Name_Reduce): Update comment.
Diffstat (limited to 'gcc/ada/scng.adb')
| -rw-r--r-- | gcc/ada/scng.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index e3da051f41b..db326943911 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -1701,7 +1701,7 @@ package body Scng is if Source (Scan_Ptr + 1) = '"' then goto Scan_Wide_Character; - elsif Ada_Version = Ada_2020 then + elsif Ada_Version >= Ada_2020 then Scan_Ptr := Scan_Ptr + 1; Token := Tok_Left_Bracket; return; |