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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,70414f56d810c10c
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news2.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!post02.iad.highwinds-media.com!news.flashnewsgroups.com-b7.4zTQh5tI3A!not-for-mail
From: Stephen Leake <stephen_leake@stephe-leake.org>
Newsgroups: comp.lang.ada
Subject: Re: discriminant questions
References: 
 <9f37b726-d80b-4d24-bf3f-28a14255f7fd@s20g2000yql.googlegroups.com>
 	<0d272f62-67d0-4905-972c-8a7e912c5531@en1g2000vbb.googlegroups.com>
 	<148cxoyabima2.16mz6xwdph2hj.dlg@40tude.net>
 	<01a1374f-59ab-40be-9e39-0640cb2a513d@n35g2000yqf.googlegroups.com>
 	<1fp2o673mu9az$.d9loz1zbcl0d.dlg@40tude.net>
 	<wccty89n6hw.fsf@shell01.TheWorld.com>
 	<luyty5gimgdn.fh6hltxeo2t1.dlg@40tude.net>
 	<d3e2a483-2968-42b2-95c1-4370c40b1cd0@h7g2000yqm.googlegroups.com>
 	<osxb9aktb5va$.gl2adls3llnz$.dlg@40tude.net>
 	<b210b96b-806d-4add-8ac0-fa2ce568f855@u20g2000yqj.googlegroups.com>
 	<14tiipigyejtc$.hyp7e82egqwq$.dlg@40tude.net>
 	<34d856bd-19a3-4bbf-b9d8-c0f100000ef4@k7g2000vbd.googlegroups.com>
 	<wq5xshyxsz29$.1whnijhte02l7.dlg@40tude.net>
 	<f353c87e-f0d1-476f-aa7d-195f66f97650@w28g2000yqw.googlegroups.com>
 	<1tpl2pc36ptr4$.txv4v3wmkjlm.dlg@40tude.net>
 	<b32585e7-7a90-4d98-a729-d9d9c089252d@g30g2000yqc.googlegroups.com>
 	<1malv6h6q31j3.uz9ws5j0glnm.dlg@40tude.net>
Date: Fri, 23 Sep 2011 05:23:38 -0400
Message-ID: <82ipojfw85.fsf@stephe-leake.org>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (windows-nt)
Cancel-Lock: sha1:mn1iGjW8Ocl2JJTJ38gIxD4q848=
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@flashnewsgroups.com
Organization: FlashNewsgroups.com
X-Trace: 68eb14e7c5004e029e66124983
Xref: g2news2.google.com comp.lang.ada:22045
Date: 2011-09-23T05:23:38-04:00
List-Id: <comp.lang.ada>

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> writes:

> Consider a generic
> implementation of removing all elements of the container using iterators:
>
>    This := Container.First;
>    while This /= Null_Iterator loop
>        Next := This.Next;
>        This.Delete;
>        This := Next;
>    end loop;
>
> This may work or not depending on the semantics of Delete. E.g. for a
> circular list, it will loop forever.

No, it will produce an invalid dereference; for a one element circular
list, This.Next = This, so Next is invalid after This.Delete.

-- 
-- Stephe