diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-17 14:26:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-17 14:26:42 +0000 |
| commit | b58174fc06bc37bbd57ad9b6c99ba0f0e91f4de3 (patch) | |
| tree | 69d543f5118c0ca29afe54976eb4924dafee2703 /gcc/ada/sem_aggr.adb | |
| parent | 2dd47858e7b5c9ba487b08816da612ef777c8e09 (diff) | |
| download | gcc-b58174fc06bc37bbd57ad9b6c99ba0f0e91f4de3.tar.gz | |
2010-06-17 Robert Dewar <dewar@adacore.com>
* par.adb: Minor comment fix
* sem_aggr.adb, sem_ch3.adb: Minor reformatting
2010-06-17 Doug Rupp <rupp@adacore.com>
* s-auxdec-vms_64.ads: Revert Integer to Long_Integer change, instead
change Address to Short_Address in functions where both must be the
same size for intrinsics to work.
2010-06-17 Thomas Quinot <quinot@adacore.com>
* sem_ch4.adb (Analyze_Selected_Component): A selected component may
not denote a (private) component of a protected object.
2010-06-17 Bob Duff <duff@adacore.com>
* par-labl.adb (Try_Loop): Test whether the label and the goto are in
the same list.
2010-06-17 Joel Brobecker <brobecker@adacore.com brobecker>
* gnat_ugn.texi: Update the documentation about GDB re: exception
catchpoints.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160919 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index bdc2be0b1af..a632b6a546f 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -2489,8 +2489,8 @@ package body Sem_Aggr is -- This routine checks whether this is indeed the case and if so returns -- False, signaling that no value for Discr should appear in N's -- aggregate part. Also, in this case, the routine appends to - -- New_Assoc_List the discriminant value specified in the ancestor - -- part. + -- New_Assoc_List the discriminant value specified in the ancestor part. + -- -- If the aggregate is in a context with expansion delayed, it will be -- reanalyzed, The inherited discriminant values must not be reinserted -- in the component list to prevent spurious errors, but it must be @@ -2507,6 +2507,7 @@ package body Sem_Aggr is -- a list of N_Component_Association nodes. -- What is this referring to??? There is no "following function" in -- sight??? + -- -- If no component association has a choice for the searched component, -- the value provided by the others choice is returned, if there is one, -- and Consider_Others_Choice is set to true. Otherwise Empty is @@ -2585,6 +2586,7 @@ package body Sem_Aggr is if Inherited_Discriminant (Comp_Assoc) then return True; end if; + Next (Comp_Assoc); end loop; end if; |