From fc737a6c2001e303a3509df7b1125b8e3d7ea651 Mon Sep 17 00:00:00 2001 From: Steve Baird Date: Fri, 19 Aug 2022 10:26:29 -0700 Subject: [PATCH] [Ada] Restore missing Aggregate aspect for Ada.Containers.Ordered_Sets.Set Ada RM A.18.9 includes a specification of the Aggregate aspect for the type Ada.Containers.Ordered_Sets. That aspect specification was deliberately commented out in a-coorse.ads at one time, but that workaround is no longer needed. gcc/ada/ * libgnat/a-coorse.ads: Restore Aggregate aspect specification for type Set. --- gcc/ada/libgnat/a-coorse.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/libgnat/a-coorse.ads b/gcc/ada/libgnat/a-coorse.ads index 8888a8c..fed41ec 100644 --- a/gcc/ada/libgnat/a-coorse.ads +++ b/gcc/ada/libgnat/a-coorse.ads @@ -57,9 +57,9 @@ is type Set is tagged private with Constant_Indexing => Constant_Reference, Default_Iterator => Iterate, - Iterator_Element => Element_Type; - -- Aggregate => (Empty => Empty, - -- Add_Unnamed => Include); + Iterator_Element => Element_Type, + Aggregate => (Empty => Empty, + Add_Unnamed => Include); pragma Preelaborable_Initialization (Set); -- 2.7.4