diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-07-07 12:42:43 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-07 14:42:43 +0200 |
| commit | 84157c9a3fd3267ba2264ec2ba3f4f48fba0b887 (patch) | |
| tree | b7d0419a6b1561d3e0b6744e89abd1f3e5bb63bd /gcc/ada/scans.ads | |
| parent | 535536b45a85eca6749f813b75d46a9788e0781b (diff) | |
| download | gcc-84157c9a3fd3267ba2264ec2ba3f4f48fba0b887.zip gcc-84157c9a3fd3267ba2264ec2ba3f4f48fba0b887.tar.gz gcc-84157c9a3fd3267ba2264ec2ba3f4f48fba0b887.tar.bz2 | |
a-calend.adb: Minor code reorganization (use conditional expressions)
2009-07-07 Robert Dewar <dewar@adacore.com>
* a-calend.adb: Minor code reorganization (use conditional expressions)
* s-stusta.ads, s-interr-hwint.adb, g-expect-vms.adb, s-secsta.ads,
prj-nmsc.adb, a-teioed.adb, output.ads, prj-attr.ads, a-textio.adb,
s-taskin.ads, scans.ads, s-osinte-vms.adb, s-taprop-solaris.adb,
s-tpopsp-posix-foreign.adb, s-trafor-default.adb, gnat1drv.adb,
s-stchop-vxworks.adb, s-tpopsp-posix.adb, prj-env.adb, prj-env.ads,
g-comlin.adb, exp_ch11.adb: Minor reformatting.
From-SVN: r149320
Diffstat (limited to 'gcc/ada/scans.ads')
| -rw-r--r-- | gcc/ada/scans.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index 6f9bcb8..4fe0700 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -363,7 +363,7 @@ package Scans is -- Pointer to first character of current token Current_Line_Start : Source_Ptr := No_Location; -- init for -gnatVa - -- Pointer to first character of line containing current token. + -- Pointer to first character of line containing current token Start_Column : Column_Number := No_Column_Number; -- init for -gnatVa -- Starting column number (zero origin) of the first non-blank character @@ -444,6 +444,11 @@ 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_Conditional_Expression : Nat := 0; + -- This is a counter that is set non-zero while scanning out a conditional + -- expression (incremented on entry, decremented on exit). It is used to + -- disconnect format checks that normally apply to keywords THEN, ELSE etc. + -------------------------------------------------------- -- Procedures for Saving and Restoring the Scan State -- -------------------------------------------------------- |