-- --
-- B o d y --
-- --
--- Copyright (C) 1995-2011, AdaCore --
+-- Copyright (C) 1995-2012, 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- --
begin
Elmt := Table (Hash (K));
-
loop
if Elmt = Null_Ptr then
return Null_Ptr;
begin
if not Iterator_Started then
return Null_Ptr;
+ else
+ Iterator_Ptr := Next (Iterator_Ptr);
+ return Get_Non_Null;
end if;
-
- Iterator_Ptr := Next (Iterator_Ptr);
- return Get_Non_Null;
end Get_Next;
------------------
procedure Set (E : Elmt_Ptr) is
Index : Header_Num;
-
begin
Index := Hash (Get_Key (E));
Set_Next (E, Table (Index));