diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-21 13:01:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-21 13:01:28 +0100 |
| commit | 88115c2a3945dd9eaf0807385e1cd27c298d3d08 (patch) | |
| tree | 765ff5b796fde6843e06dc9b97e68453e35eb766 /gcc/ada/sem_dim.ads | |
| parent | 6c57023b0cdc7fccc7db3963f847dbef53d43de8 (diff) | |
| download | gcc-88115c2a3945dd9eaf0807385e1cd27c298d3d08.zip gcc-88115c2a3945dd9eaf0807385e1cd27c298d3d08.tar.gz gcc-88115c2a3945dd9eaf0807385e1cd27c298d3d08.tar.bz2 | |
[multiple changes]
2011-12-21 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, sem_dim.adb, sem_dim.ads, sem_ch12.adb, prj-conf.adb:
Minor reformatting.
2011-12-21 Claire Dross <dross@adacore.com>
* a-cfdlli.ads (Constant_Indexing, Default_Iterator,
Iterator_Element): Added to type List.
(Not_No_Element, List_Iterator_Interfaces, Iterate,
Constant_Reference_Type, Constant_Reference): New.
* a-cfdlli.adb (type Iterator, Finalize, First, Last, Next,
Previous, Iterate, Not_No_Element, Constant_Reference): New.
From-SVN: r182576
Diffstat (limited to 'gcc/ada/sem_dim.ads')
| -rw-r--r-- | gcc/ada/sem_dim.ads | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/gcc/ada/sem_dim.ads b/gcc/ada/sem_dim.ads index ddee3da..2dce82b 100644 --- a/gcc/ada/sem_dim.ads +++ b/gcc/ada/sem_dim.ads @@ -98,10 +98,9 @@ package Sem_Dim is Id : Entity_Id; Aggr : Node_Id); -- Analyze the contents of aspect Dimension. Associate the provided values - -- and quantifiers with the related context N. - -- Id is the corresponding Aspect_Id (Aspect_Dimension) - -- Aggr is the corresponding expression for the aspect Dimension declared - -- by the declaration of N. + -- and quantifiers with the related context N. Id is the corresponding + -- Aspect_Id (Aspect_Dimension) Aggr is the corresponding expression for + -- the aspect Dimension declared by the declaration of N. procedure Analyze_Aspect_Dimension_System (N : Node_Id; @@ -141,9 +140,8 @@ package Sem_Dim is Btyp : Entity_Id); -- Evaluate the Expon operator for dimensioned type with rational exponent. -- Indeed the regular Eval_Op_Expon routine (see package Sem_Eval) is - -- restricted to Integer exponent. - -- This routine deals only with rational exponent which is not an integer - -- if Btyp is a dimensioned type. + -- restricted to Integer exponent. This routine deals only with rational + -- exponent which is not an integer if Btyp is a dimensioned type. procedure Expand_Put_Call_With_Dimension_Symbol (N : Node_Id); -- Determine whether N denotes a subprogram call to one of the routines |