[gcc r13-940] [Ada] Update documentation of GNAT.Dynamic_Tables

[gcc r13-940] [Ada] Update documentation of GNAT.Dynamic_Tables

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:e5a850a66439fb9949bdd73eddb3cf2ed6dcfbaf

commit r13-940-ge5a850a66439fb9949bdd73eddb3cf2ed6dcfbaf
Author: Javier Miranda <miranda@adacore.com>
Date:   Fri May 13 16:56:00 2022 +0000

    [Ada] Update documentation of GNAT.Dynamic_Tables
    
    Document that dynamic tables are defined aliased for backward
    compatibility.
    
    gcc/ada/
    
            * libgnat/g-dyntab.ads (Table_Type): Update documentation.

Diff:
---
 gcc/ada/libgnat/g-dyntab.ads | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/gcc/ada/libgnat/g-dyntab.ads b/gcc/ada/libgnat/g-dyntab.ads
index 7cad7359518..1cf4877e1da 100644
--- a/gcc/ada/libgnat/g-dyntab.ads
+++ b/gcc/ada/libgnat/g-dyntab.ads
@@ -82,10 +82,6 @@ package GNAT.Dynamic_Tables is
    --  freely (expensive reallocation occurs only at major granularity
    --  chunks controlled by the allocation parameters).
 
-   --  Note: we do not make the table components aliased, since this would
-   --  restrict the use of table for discriminated types. If it is necessary
-   --  to take the access of a table element, use Unrestricted_Access.
-
    --  WARNING: On HPPA, the virtual addressing approach used in this unit is
    --  incompatible with the indexing instructions on the HPPA. So when using
    --  this unit, compile your application with -mdisable-indexing.
@@ -120,9 +116,10 @@ package GNAT.Dynamic_Tables is
    --  freely (expensive reallocation occurs only at major granularity
    --  chunks controlled by the allocation parameters).
 
-   --  Note: we do not make the table components aliased, since this would
-   --  restrict the use of table for discriminated types. If it is necessary
-   --  to take the access of a table element, use Unrestricted_Access.
+   --  Note: For backward compatibility we do not make the table components
+   --  aliased, since for Ada 95 this would have restricted the use of tables
+   --  for discriminated types. If it is necessary to take the access of a
+   --  table element, use Unrestricted_Access.
 
    type Table_Type is
      array (Valid_Table_Index_Type range <>) of Table_Component_Type;