From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.42.10.206 with SMTP id r14mr3494984icr.15.1422382003116;
        Tue, 27 Jan 2015 10:06:43 -0800 (PST)
X-Received: by 10.140.40.242 with SMTP id x105mr33743qgx.14.1422382003087;
 Tue, 27 Jan 2015 10:06:43 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!hl2no2793881igb.0!news-out.google.com!q4ni8qan.0!nntp.google.com!v8no3889482qal.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 27 Jan 2015 10:06:42 -0800 (PST)
In-Reply-To: <ma8jee$1ci$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=83.99.113.5;
 posting-account=sDyr7QoAAAA7hiaifqt-gaKY2K7OZ8RQ
NNTP-Posting-Host: 83.99.113.5
References: <9ceb847e-d064-47e7-aa11-7707b63d4308@googlegroups.com>
 <21e0e529-a516-4e22-a6a5-68b212f22577@googlegroups.com>
 <6d947a7f-7494-4dd7-96d9-0dad83589413@googlegroups.com>
 <ma8jee$1ci$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <016b982c-d376-4db4-bb7c-37561e7903d2@googlegroups.com>
Subject: Re: Problem implementing Iterators
From: Laurent <daemon2@internet.lu>
Injection-Date: Tue, 27 Jan 2015 18:06:43 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: news.eternal-september.org comp.lang.ada:24762
Date: 2015-01-27T10:06:42-08:00
List-Id: <comp.lang.ada>


> 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