diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 10:56:41 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 10:56:41 +0200 |
commit | b6e6a4e3804fc142a8c130cd2189f2461c9403ff (patch) | |
tree | f760767dba4ad37e4f3a5347e4b00c17d4b5f0c6 /gcc/ada/scans.ads | |
parent | f8a219349a28d326ca09932040eec82c9fd841c4 (diff) | |
download | gcc-b6e6a4e3804fc142a8c130cd2189f2461c9403ff.zip gcc-b6e6a4e3804fc142a8c130cd2189f2461c9403ff.tar.gz gcc-b6e6a4e3804fc142a8c130cd2189f2461c9403ff.tar.bz2 |
[multiple changes]
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_attr.adb, sem_ch5.adb: Minor reformatting.
2017-04-25 Bob Duff <duff@adacore.com>
* types.ads: Minor: Fix '???' comment.
* sem_ch8.adb: Minor comment fix.
2017-04-25 Bob Duff <duff@adacore.com>
* sem_prag.adb: Remove suspicious uses of Name_Buf.
* stringt.ads, stringt.adb, exp_dbug.adb, sem_dim.adb: Remove
Add_String_To_Name_Buffer, to avoid using the global Name_Buf.
Add String_To_Name with no side effects.
2017-04-25 Justin Squirek <squirek@adacore.com>
* sem_ch3.adb (Analyze_Declarations): Add
additional condition for edge case.
2017-04-25 Bob Duff <duff@adacore.com>
* par-ch2.adb, scans.ads, scn.adb: Do not give an error for
reserved words inside pragmas. This is necessary to allow the
pragma name Interface to be used in pragma Ignore_Pragma.
* par.adb: Minor comment fix.
2017-04-25 Javier Miranda <miranda@adacore.com>
* a-tags.ads, a-tags.adb (Type_Is_Abstract): Renamed as Is_Abstract.
* rtsfind.ads (RE_Type_Is_Abstract): Renamed as Is_Abstract.
* exp_disp.adb (Make_DT): Update occurrences of RE_Type_Is_Abstract.
* exp_intr.adb (Expand_Dispatching_Constructor_Call): Update
occurrences of RE_Type_Is_Abstract
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Build_Chain): Account for ancestor
subtypes while traversing the derivation chain.
From-SVN: r247150
Diffstat (limited to 'gcc/ada/scans.ads')
-rw-r--r-- | gcc/ada/scans.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index 8ff3f9d..a8972be 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -484,9 +484,13 @@ 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; - -- Flag set True for parsing the argument of a Depends pragma or aspect - -- (used to allow/require non-standard style rules for =>+ with -gnatyt). + -- True while parsing the argument of a Depends pragma or aspect (used to + -- allow/require non-standard style rules for =>+ with -gnatyt). Inside_If_Expression : Nat := 0; -- This is a counter that is set non-zero while scanning out an if |