ada/libgnat/s-htable.adb

45       Table : array (Header_Num) of Elmt_Ptr;
48       Iterator_Ptr     : Elmt_Ptr;
51       function Get_Non_Null return Elmt_Ptr;
60       function Get (K : Key) return Elmt_Ptr is
61          Elmt : Elmt_Ptr;
82       function Get_First return Elmt_Ptr is
94       function Get_Next return Elmt_Ptr is
108       function Get_Non_Null return Elmt_Ptr is
138          Elmt      : Elmt_Ptr;
139          Next_Elmt : Elmt_Ptr;
183       procedure Set (E : Elmt_Ptr) is
195       function Set_If_Not_Present (E : Elmt_Ptr) return Boolean is
203          Elmt  : Elmt_Ptr;
231       type Elmt_Ptr is access all Element_Wrapper;  type
235          Next : Elmt_Ptr;
239         Ada.Unchecked_Deallocation (Element_Wrapper, Elmt_Ptr);
241       procedure Set_Next (E : Elmt_Ptr; Next : Elmt_Ptr);
242       function  Next     (E : Elmt_Ptr) return Elmt_Ptr;
243       function  Get_Key  (E : Elmt_Ptr) return Key;
248         Elmt_Ptr   => Elmt_Ptr,
262          Tmp : constant Elmt_Ptr := Tab.Get (K);
276          Tmp : constant Elmt_Ptr := Tab.Get_First;
286          Tmp : constant Elmt_Ptr := Tab.Get_First;
300       function Get_Key (E : Elmt_Ptr) return Key is
310          Tmp : constant Elmt_Ptr := Tab.Get_Next;
320          Tmp : constant Elmt_Ptr := Tab.Get_Next;
334       function Next (E : Elmt_Ptr) return Elmt_Ptr is
344          Tmp : Elmt_Ptr;
360          E1, E2 : Elmt_Ptr;
378          Tmp : constant Elmt_Ptr := Tab.Get (K);
391       procedure Set_Next (E : Elmt_Ptr; Next : Elmt_Ptr) is