diff options
Diffstat (limited to 'gcc/ada/s-htable.adb')
| -rw-r--r-- | gcc/ada/s-htable.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/ada/s-htable.adb b/gcc/ada/s-htable.adb index 27a6aa75e64..2a54ed1622d 100644 --- a/gcc/ada/s-htable.adb +++ b/gcc/ada/s-htable.adb @@ -246,6 +246,17 @@ package body System.HTable is end if; end Get_First; + procedure Get_First (K : in out Key; E : out Element) is + Tmp : constant Elmt_Ptr := Tab.Get_First; + begin + if Tmp = null then + E := No_Element; + else + K := Tmp.K; + E := Tmp.E; + end if; + end Get_First; + ------------- -- Get_Key -- ------------- @@ -269,6 +280,17 @@ package body System.HTable is end if; end Get_Next; + procedure Get_Next (K : in out Key; E : out Element) is + Tmp : constant Elmt_Ptr := Tab.Get_Next; + begin + if Tmp = null then + E := No_Element; + else + K := Tmp.K; + E := Tmp.E; + end if; + end Get_Next; + ---------- -- Next -- ---------- |