diff options
| author | Vincent Pucci <pucci@adacore.com> | 2012-10-01 13:23:22 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-01 15:23:22 +0200 |
| commit | ba9144840f5b72697946060758bdde386d4a6292 (patch) | |
| tree | b81300a66fd5db2e8413835a87c72c2a03cabbcc /gcc/ada/sem_dim.ads | |
| parent | 804fc056d55a4098d7a4a1fc895579aaf1bb3080 (diff) | |
| download | gcc-ba9144840f5b72697946060758bdde386d4a6292.zip gcc-ba9144840f5b72697946060758bdde386d4a6292.tar.gz gcc-ba9144840f5b72697946060758bdde386d4a6292.tar.bz2 | |
sem_aggr.adb (New_Copy_Tree_And_Copy_Dimensions): New routine.
2012-10-01 Vincent Pucci <pucci@adacore.com>
* sem_aggr.adb (New_Copy_Tree_And_Copy_Dimensions): New routine.
(Resolve_Record_Aggregate): New_Copy_Tree calls replaced by
New_Copy_Tree_And_Copy_Dimensions calls. Move_Dimensions call
replaced by Copy_Dimensions call.
* sem_dim.adb (Analyze_Dimension_Component_Declaration): Don't
remove the dimensions of expression in component declaration anymore.
(Copy_Dimensions): New routine.
(Move_Dimensions): Add call to Copy_Dimensions.
* sem_dim.ads (Copy_Dimensions): New routine.
(Move_Dimensions): Spec moved to body of Sem_Dim.
From-SVN: r191922
Diffstat (limited to 'gcc/ada/sem_dim.ads')
| -rw-r--r-- | gcc/ada/sem_dim.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_dim.ads b/gcc/ada/sem_dim.ads index 86ada35..e7dc3ae 100644 --- a/gcc/ada/sem_dim.ads +++ b/gcc/ada/sem_dim.ads @@ -162,6 +162,9 @@ package Sem_Dim is -- For sub spec N, issue a warning for each dimensioned formal with a -- literal default value in the list of formals Formals. + procedure Copy_Dimensions (From, To : Node_Id); + -- Copy dimension vector of From to To. + procedure Eval_Op_Expon_For_Dimensioned_Type (N : Node_Id; Btyp : Entity_Id); @@ -183,9 +186,6 @@ package Sem_Dim is -- Return True if N is a package instantiation of System.Dim.Integer_IO or -- of System.Dim.Float_IO. - procedure Move_Dimensions (From : Node_Id; To : Node_Id); - -- Copy dimension vector of From to To, delete dimension vector of From - procedure Remove_Dimension_In_Statement (Stmt : Node_Id); -- Remove the dimensions associated with Stmt |