From 38568705a1c44aa183b41a8db6567e02b6f8b54a Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 12 Dec 2011 11:52:04 +0000 Subject: 2011-12-12 Gary Dismukes * 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 * 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 * gsocket.h: Adjust previous patch. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182228 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-cobove.adb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'gcc/ada/a-cobove.adb') 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); -- cgit v1.2.1