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/scans.ads | |
| 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/scans.ads')
| -rw-r--r-- | gcc/ada/scans.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index a8972be..428c1a5 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -484,10 +484,6 @@ package Scans is -- Is it really right for this to be a Name rather than a String, what -- about the case of Wide_Wide_Characters??? - Inside_Pragma : Boolean := False; - -- True within a pragma. Used to avoid complaining about reserved words - -- within pragmas (see Scan_Reserved_Identifier). - Inside_Depends : Boolean := False; -- True while parsing the argument of a Depends pragma or aspect (used to -- allow/require non-standard style rules for =>+ with -gnatyt). @@ -497,6 +493,10 @@ package Scans is -- expression (incremented on entry, decremented on exit). It is used to -- disconnect format checks that normally apply to keywords THEN, ELSE etc. + Inside_Pragma : Boolean := False; + -- True within a pragma. Used to avoid complaining about reserved words + -- within pragmas (see Scan_Reserved_Identifier). + -------------------------------------------------------- -- Procedures for Saving and Restoring the Scan State -- -------------------------------------------------------- |