diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-07-02 06:10:28 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:35 -0400 |
| commit | e335bd2e6ebc23050d48ad17584323f590733d50 (patch) | |
| tree | 37db2786b4d4d39392a48fed19899939539775e4 /gcc/ada/par-ch4.adb | |
| parent | 52ad13baa53dcf13c9ec28e37196ac644abc60c4 (diff) | |
| download | gcc-e335bd2e6ebc23050d48ad17584323f590733d50.zip gcc-e335bd2e6ebc23050d48ad17584323f590733d50.tar.gz gcc-e335bd2e6ebc23050d48ad17584323f590733d50.tar.bz2 | |
[Ada] Clean up support of square brackets
gcc/ada/
* par-ch4.adb (P_Aggregate_Or_Paren_Expr): Simplify code since
we are always under -gnatX if we encounter a Tok_Left_Bracket.
* scng.adb (Scan): [] is an aggregate under -gnatX and a wide
character otherwise.
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index e4ce02f..cc5ed03 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1395,7 +1395,7 @@ package body Ch4 is begin Lparen_Sloc := Token_Ptr; - if Token = Tok_Left_Bracket and then Ada_Version >= Ada_2020 then + if Token = Tok_Left_Bracket then Scan; -- Special case for null aggregate in Ada 2020 |