[Ada] Add comments wrt. deallocation of bounded sets/maps

2019-09-19  Raphael Amiard  <amiard@adacore.com>

gcc/ada/

	* libgnat/a-cbhama.ads, libgnat/a-cbhase.ads,
	libgnat/a-chtgop.ads (Clear): Refine comments

From-SVN: r275936

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5ff5f16875ae0f4e8b552fe77f6b04b0e7164687..f9a8bfe758315a1ce7c0f32d5ffc80e8e5ef5636 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-09-19  Raphael Amiard  <amiard@adacore.com>
+
+       * libgnat/a-cbhama.ads, libgnat/a-cbhase.ads,
+       libgnat/a-chtgop.ads (Clear): Refine comments
+
 2019-09-19  Eric Botcazou  <ebotcazou@adacore.com>
 
        * sem_ch12.adb (Restore_Private_Views): Comment out new code

diff --git a/gcc/ada/libgnat/a-cbhama.ads b/gcc/ada/libgnat/a-cbhama.ads
index b4d1105bbc4ce5830145b8d827b680bcd2ed9054..0238548a9427320a737997bec58f371038e8a4d1 100644 (file)
--- a/gcc/ada/libgnat/a-cbhama.ads
+++ b/gcc/ada/libgnat/a-cbhama.ads
@@ -107,7 +107,8 @@ package Ada.Containers.Bounded_Hashed_Maps is
    --  Equivalent to Length (Container) = 0
 
    procedure Clear (Container : in out Map);
-   --  Removes all of the items from the map
+   --  Removes all of the items from the map. This will deallocate all memory
+   --  associated with this map.
 
    function Key (Position : Cursor) return Key_Type;
    --  Returns the key of the node designated by the cursor

diff --git a/gcc/ada/libgnat/a-cbhase.ads b/gcc/ada/libgnat/a-cbhase.ads
index 8f1b886b6b7a9bbe199c936f0619aa115e78fbc6..cb9150bdfaeba0f4c2384be15d82167388cea155 100644 (file)
--- a/gcc/ada/libgnat/a-cbhase.ads
+++ b/gcc/ada/libgnat/a-cbhase.ads
@@ -120,7 +120,8 @@ package Ada.Containers.Bounded_Hashed_Sets is
    --  Equivalent to Length (Container) = 0
 
    procedure Clear (Container : in out Set);
-   --  Removes all of the items from the set
+   --  Removes all of the items from the set. This will deallocate all memory
+   --  associated with this set.
 
    function Element (Position : Cursor) return Element_Type;
    --  Returns the element of the node designated by the cursor

diff --git a/gcc/ada/libgnat/a-chtgop.ads b/gcc/ada/libgnat/a-chtgop.ads
index 3bb42fe65a90af2b3175c00e7d07232cfd4fcd17..6ebb9e5c3b65a7b463914d6d0a844a9137d86584 100644 (file)
--- a/gcc/ada/libgnat/a-chtgop.ads
+++ b/gcc/ada/libgnat/a-chtgop.ads
@@ -107,8 +107,9 @@ package Ada.Containers.Hash_Tables.Generic_Operations is
 
    procedure Clear (HT : in out Hash_Table_Type);
    --  Deallocates each node in hash table HT. (Note that it only deallocates
-   --  the nodes, not the buckets array.) Program_Error is raised if the hash
-   --  table is busy.
+   --  the nodes, not the buckets array. Also note that for bounded containers,
+   --  the buckets array is not dynamically allocated). Program_Error is raised
+   --  if the hash table is busy.
 
    procedure Move (Target, Source : in out Hash_Table_Type);
    --  Moves (not copies) the buckets array and nodes from Source to