diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:12:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:12:31 +0200 |
| commit | 94d3a18d33399c807647294c973f263096fae095 (patch) | |
| tree | 241695fc84fc443f47ea6b65207c576a7bea745b /gcc/ada/scn.adb | |
| parent | 51148ddab1495aa357e57f1c209940f7cde571c1 (diff) | |
| download | gcc-94d3a18d33399c807647294c973f263096fae095.zip gcc-94d3a18d33399c807647294c973f263096fae095.tar.gz gcc-94d3a18d33399c807647294c973f263096fae095.tar.bz2 | |
[multiple changes]
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* make.adb, par-ch2.adb, sem_util.adb, scans.ads, sem_ch8.adb,
scn.adb, osint.adb, fname.adb: Minor reformatting.
2017-04-25 Pascal Obry <obry@adacore.com>
* s-taprop-mingw.adb: Do not check for CloseHandle in
Finalize_TCB.
From-SVN: r247153
Diffstat (limited to 'gcc/ada/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index 643fde9..f5a5190 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -378,8 +378,9 @@ package body Scn is ------------------------------ procedure Scan_Reserved_Identifier (Force_Msg : Boolean) is - Token_Chars : String := Token_Type'Image (Token); + Token_Chars : String := Token_Type'Image (Token); Len : Natural := 0; + begin -- AI12-0125 : '@' denotes the target_name, i.e. serves as an -- abbreviation for the LHS of an assignment. |