diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-13 10:33:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-13 10:33:37 +0000 |
| commit | 6da581c1ba7fad84ebc03facf5baff7c215a6dbe (patch) | |
| tree | 16e64aeaef0f64c0a97694cfa8298fdfe76681cd /gcc/ada/sprint.adb | |
| parent | 25e4fa47118b3224edf5cb3b7b209b1fb92cd134 (diff) | |
| download | gcc-6da581c1ba7fad84ebc03facf5baff7c215a6dbe.tar.gz | |
2017-01-13 Gary Dismukes <dismukes@adacore.com>
* sem_ch13.adb: Minor reformatting and typo fix.
2017-01-13 Ed Schonberg <schonberg@adacore.com>
* par-ch4.adb (P_Aggregate_Or_Parent_Expr): An
Iterated_Component_Association is a named association in an
array aggregate.
* sem_aggr.adb (Resolve_Iterated_Component_Association): New
procedure, subsidiary of Resolve_Array_Aggregate, to analyze
and resolve the discrete choices and the expression of the
new construct.
* sinfo.adb, sinfo.ads: In analogy with N_Component_Association,
Loop_Actions and Box_Present are attributes of
N_Iterated_Component_Association nodes. Box_Present is always
False in this case.
* sprint.adb (Sprint_Node): An Iterated_Component_Association
has a Discrete_Choices list, as specified in the RM. A
Component_Association for aggregate uses instead a Choices list.
We have to live with this small inconsistency because the new
construct also has a defining identifier, and there is no way
to merge the two node structures.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244410 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 3951b5778b8..a357fb2da84 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1333,7 +1333,7 @@ package body Sprint is Write_Str (" for "); Write_Id (Defining_Identifier (Node)); Write_Str (" in "); - Sprint_Bar_List (Choices (Node)); + Sprint_Bar_List (Discrete_Choices (Node)); Write_Str (" => "); Sprint_Node (Expression (Node)); |