PR middle-end/49875

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-table.ads

diff --git a/gcc/ada/g-table.ads b/gcc/ada/g-table.ads
index 819ff28..3a344a5 100644 (file)
--- a/gcc/ada/g-table.ads
+++ b/gcc/ada/g-table.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1998-2005, AdaCore                     --
+--                     Copyright (C) 1998-2009, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -105,17 +105,19 @@ package GNAT.Table is
 
    type Table_Type is
      array (Table_Index_Type range <>) of Table_Component_Type;
-
    subtype Big_Table_Type is
      Table_Type (Table_Low_Bound .. Table_Index_Type'Last);
    --  We work with pointers to a bogus array type that is constrained
    --  with the maximum possible range bound. This means that the pointer
    --  is a thin pointer, which is more efficient. Since subscript checks
    --  in any case must be on the logical, rather than physical bounds,
-   --  safety is not compromised by this approach.
+   --  safety is not compromised by this approach. These types should never
+   --  be used by the client.
 
    type Table_Ptr is access all Big_Table_Type;
-   --  The table is actually represented as a pointer to allow reallocation
+   for Table_Ptr'Storage_Size use 0;
+   --  The table is actually represented as a pointer to allow reallocation.
+   --  This type should never be used by the client.
 
    Table : aliased Table_Ptr := null;
    --  The table itself. The lower bound is the value of Low_Bound.
@@ -151,7 +153,7 @@ package GNAT.Table is
    --  array value. Current array values are not affected by this call.
 
    procedure Free;
-   --  Free all allocated memory for the table. A call to init is required
+   --  Free all allocated memory for the table. A call to Init is required
    --  before any use of this table after calling Free.
 
    First : constant Table_Index_Type := Table_Low_Bound;
@@ -182,6 +184,9 @@ package GNAT.Table is
    --  i.e. the table size is increased by one, and the given new item
    --  stored in the newly created table element.
 
+   procedure Append_All (New_Vals : Table_Type);
+   --  Appends all components of New_Vals
+
    procedure Set_Item
      (Index : Table_Index_Type;
       Item  : Table_Component_Type);