diff options
Diffstat (limited to 'gcc/ada/exp_aggr.ads')
| -rw-r--r-- | gcc/ada/exp_aggr.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/exp_aggr.ads b/gcc/ada/exp_aggr.ads index c071e76..0da0d8f 100644 --- a/gcc/ada/exp_aggr.ads +++ b/gcc/ada/exp_aggr.ads @@ -59,6 +59,10 @@ package Exp_Aggr is -- This is the case if it consists only of iterated component associations -- with iterator specifications, see RM 4.3.3(20.2/5). + function Parent_Is_Regular_Aggregate (Par : Node_Id) return Boolean; + -- Return True if Par is an aggregate that is not a container aggregate, or + -- a component association of such an aggregate. + function Static_Array_Aggregate (N : Node_Id) return Boolean; -- N is an array aggregate that may have a component association with -- an others clause and a range. If bounds are static and the expressions |