diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:33:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:33:11 +0200 |
| commit | 3f1bc2cf467b4b05d02a51c74947f39099749cde (patch) | |
| tree | 56f2a46c5385f462155fe01b0bdcb4519cc7ea8a /gcc/ada/scans.ads | |
| parent | b07b7acecfd5b064a30b15b4767401ff56a60da7 (diff) | |
| download | gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.zip gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.tar.gz gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.tar.bz2 | |
[multiple changes]
2014-07-16 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_prag.adb, sem_util.adb, sem_res.adb, sem_ch13.adb:
Minor code reorganization (use Is_Access_Type, not in Access_Kind).
* exp_ch3.adb: Minor code reorganization, use Is_Access_Type,
not in Access_Kind.
* par-ch4.adb (At_Start_Of_Attribute): New function
(P_Simple_Expression): Better msg for bad attribute prefix.
* scans.ads: Minor reformatting.
2014-07-16 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Resolve_Attribute, case 'Update): If choice is a
static constant, check that in belongs to the corresponding index
subtype, to produce the proer warning when expansion is disabled.
2014-07-16 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Warn on incompatible size/alignment.
* gnat_ugn.texi: Document -gnatw.z and -gnatw.Z.
* ug_words: VMS synonyms (WARNINGS=[NO]SIZE_ALIGN) for -gnatw.z/-gnatw.Z
* usage.adb: Add lines for -gnatw.z/-gnatw.Z.
* vms_data.ads: VMS synonyms (WARNINGS=[NO]SIZE_ALIGN) for
-gnatw.z/-gnatw.Z
* warnsw.adb: Set Warn_On_Size_Alignment appropriately.
* warnsw.ads (Warn_On_Size_Alignment): New flag Minor
reformatting.
From-SVN: r212656
Diffstat (limited to 'gcc/ada/scans.ads')
| -rw-r--r-- | gcc/ada/scans.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index ff05953..ae7f91d 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -404,7 +404,7 @@ package Scans is Token_Node : Node_Id := Empty; -- Node table Id for the current token. This is set only if the current -- token is one for which the scanner constructs a node (i.e. it is an - -- identifier, operator symbol, or literal. For other token types, + -- identifier, operator symbol, or literal). For other token types, -- Token_Node is undefined. Token_Name : Name_Id := No_Name; |