diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-12 11:52:04 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-12 11:52:04 +0000 |
| commit | 38568705a1c44aa183b41a8db6567e02b6f8b54a (patch) | |
| tree | 47e75a0a07789fbe0929f7955dd7427cfbfb0c0b /gcc/ada/a-cobove.adb | |
| parent | 693b08225e50adb104ff6da9a4fdb918bb9de908 (diff) | |
| download | gcc-38568705a1c44aa183b41a8db6567e02b6f8b54a.tar.gz | |
2011-12-12 Gary Dismukes <dismukes@adacore.com>
* freeze.adb (Freeze_Expression): Allow freezing of static
scalar subtypes that are prefixes of an attribute, even if not
yet marked static. Such attributes will get marked as static
later in Eval_Attribute (as called from Resolve_Attribute).
* sem_attr.adb (Eval_Attribute): Remove wrong code that does an
early return for attribute prefixes that are unfrozen source-level
types. This code was incorrectly bypassing folding of unfrozen
static subtype attributes in default expressions (the executable
example in the now-deleted comment was in fact illegal).
2011-12-12 Robert Dewar <dewar@adacore.com>
* a-coinve.adb, sem_res.adb, prj-nmsc.adb, a-cobove.adb, a-convec.adb,
gnatls.adb, sem_ch13.adb, prj-env.adb, prj-env.ads: Minor reformatting.
2011-12-12 Tristan Gingold <gingold@adacore.com>
* gsocket.h: Adjust previous patch.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182228 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cobove.adb')
| -rw-r--r-- | gcc/ada/a-cobove.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/a-cobove.adb b/gcc/ada/a-cobove.adb index ff2dc372907..71f65dfea6b 100644 --- a/gcc/ada/a-cobove.adb +++ b/gcc/ada/a-cobove.adb @@ -738,16 +738,16 @@ package body Ada.Containers.Bounded_Vectors is -- The value of the iterator object's Index component influences the -- behavior of the First (and Last) selector function. - -- When the Index component is No_Index, this means the iterator object - -- was constructed without a start expression, in which case the + -- When the Index component is No_Index, this means the iterator + -- object was constructed without a start expression, in which case the -- (forward) iteration starts from the (logical) beginning of the entire -- sequence of items (corresponding to Container.First, for a forward -- iterator). - -- Otherwise, this is iteration over a partial sequence of items. When - -- the Index component isn't No_Index, the iterator object was - -- constructed with a start expression, that specifies the position from - -- which the (forward) partial iteration begins. + -- Otherwise, this is iteration over a partial sequence of items. + -- When the Index component isn't No_Index, the iterator object was + -- constructed with a start expression, that specifies the position + -- from which the (forward) partial iteration begins. if Object.Index = No_Index then return First (Object.Container.all); |