diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 10:19:33 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 10:19:33 +0200 |
| commit | b41c731f0a6e653a41bfe12b0fb29e9067b5fbfd (patch) | |
| tree | fe30f7e59237aa4b314e0028da2376615a1758b0 /gcc/ada/scng.adb | |
| parent | b5360737281eab7c537753a74eef87a8312ef1dc (diff) | |
| download | gcc-b41c731f0a6e653a41bfe12b0fb29e9067b5fbfd.zip gcc-b41c731f0a6e653a41bfe12b0fb29e9067b5fbfd.tar.gz gcc-b41c731f0a6e653a41bfe12b0fb29e9067b5fbfd.tar.bz2 | |
[multiple changes]
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb, exp_util.adb, sem_prag.adb, freeze.adb, sem_util.adb:
Minor reformatting.
2017-04-25 Ed Schonberg <schonberg@adacore.com>
* scng.adb (Scan): Handle '@' appropriately.
* sem_ch5.adb: Code cleanup.
From-SVN: r247142
Diffstat (limited to 'gcc/ada/scng.adb')
| -rw-r--r-- | gcc/ada/scng.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index a46b80c..137a2c0 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -2052,6 +2052,8 @@ package body Scng is -- T'Digits'Img. Strings literals are included for things like -- "abs"'Address. Other literals are included to give better error -- behavior for illegal cases like 123'Img. + -- In Ada2020 a target name (i.e. @) is a valid prefix of an + -- attribute, and functions like a name. if Prev_Token = Tok_Identifier or else Prev_Token = Tok_Right_Paren @@ -2059,6 +2061,7 @@ package body Scng is or else Prev_Token = Tok_Delta or else Prev_Token = Tok_Digits or else Prev_Token = Tok_Project + or else Prev_Token = Tok_At_Sign or else Prev_Token in Token_Class_Literal then Token := Tok_Apostrophe; |