Re: Problem implementing Iterators

[Laurent <daemon2@internet.lu>]

> change
> L1 : GL_String.List ;
> to
> L1 : aliased GL_String.List ;

Ok thanks works now. An easier solution than what I tried. Was writing the message while you posted yours :)

>Think (/= knowing) I have found the beginning of the solution
>
>   type Element_Type is private;
>   type Element_Ptr is access all Element_Type;
>   with procedure Display_Element (Item : in Element_Type);
>
>(...)
>
>private
>
>   type List_Node;
>   type List_Ptr is access List_Node;
>   type List_Node is record
>      Element : aliased Element_Ptr;
>      Next    : List_Ptr;
>      Previous:List_Ptr;
>   end record;
>
>the only problem I have now is that when I want to instantiate the package I get:
>
>23:4 missing actual "Element_Ptr"?
>
>When I changed Element_Type to Element_Ptr I got the message that Element_Type is missing? >Or do I have to provide both?

Would that actually have worked? Perhaps the additional Element_Ptr was't needed at all?

Thanks