4 type Element_Type (<>) is private;
5 type Element_Ptr is access all Element_Type;
9 subtype Index is Positive range 1 .. (Size + 1);
11 type List_Array is array (Index) of Element_Ptr;
13 type List_Type is record
14 Elements : List_Array;
17 procedure Put (List : in out List_Type;
18 Elem_Ptr : in Element_Ptr;