]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
[Ada] Restore missing Aggregate aspect for Ada.Containers.Ordered_Sets.Set
authorSteve Baird <baird@adacore.com>
Fri, 19 Aug 2022 17:26:29 +0000 (10:26 -0700)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 6 Sep 2022 07:14:23 +0000 (09:14 +0200)
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

index 8888a8c1e57cbf5cff48d9e0f95a659c0451e3ae..fed41ec5d2db63144d4313fb2222c1e26091a40d 100644 (file)
@@ -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);