diff options
Diffstat (limited to 'gcc/ada/g-htable.ads')
| -rw-r--r-- | gcc/ada/g-htable.ads | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gcc/ada/g-htable.ads b/gcc/ada/g-htable.ads index e747637a590..a080ee8311a 100644 --- a/gcc/ada/g-htable.ads +++ b/gcc/ada/g-htable.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1995-2009, AdaCore -- +-- Copyright (C) 1995-2010, 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- -- @@ -111,6 +111,20 @@ package GNAT.HTable is -- -- same function since the last call to Get_First or No_Element if -- -- there is no such element. If there is no call to 'Set' in between -- -- Get_Next calls, all the elements of the HTable will be traversed. + + -- procedure Get_First (K : out Key; E : out Element); + -- -- This version of the iterator returns a key/element pair. A non- + -- -- specified entry is returned, and there is no guarantee that two + -- -- calls to this procedure will return the same element. + + -- procedure Get_Next (K : out Key; E : out Element); + -- -- This version of the iterator returns a key/element pair. It + -- -- returns a non-specified element that has not been returned since + -- -- the last call to Get_First. If there is no remaining element, + -- -- then E is set to No_Element, and the value in K is undefined. + -- -- If there is no call to Set in between Get_Next calls, all the + -- -- elements of the HTable will be traversed. + -- end Simple_HTable; ------------------- |