generic
   type Table_Item is private;
   type Table_Type is array (Natural range <>) of Table_Item;
   type Table_Ptr  is access all Table_Type;
   Table      : in out Table_Ptr;
   Table_Size : in out Natural;
   with procedure Free_Proc (Ptr : in out Table_Ptr);
procedure ASIStant.Grow_Table;