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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a6c65cbc407987fe
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-11-19 01:00:43 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!fu-berlin.de!uni-berlin.de!tar-alcarin.cbb-automation.DE!not-for-mail
From: Dmitry A. Kazakov <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: dynamic multithreading
Date: Tue, 19 Nov 2002 10:00:41 +0100
Message-ID: <71vjtukq4a8k72kq1c7fp112dr7p8f6vnf@4ax.com>
References: <ar07km$u72$1@news.lucky.net>
 <CbOA9.153$Y04.251@nntpserver.swip.net> <3DD3D841.CD16A4CB@canal-plus.fr>
 <8MCB9.8643$8o1.1371873@news.xtra.co.nz> <3DD8AEAC.241AD1F8@canal-plus.fr>
 <uolhtu8ufkh0373q4do8u7j9vidamftis6@4ax.com> <uzns6etrx.fsf@wanadoo.fr>
NNTP-Posting-Host: tar-alcarin.cbb-automation.de (212.79.194.111)
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: fu-berlin.de 1037696441 18228520 212.79.194.111 (16 [77047])
X-Newsreader: Forte Agent 1.8/32.548
Xref: archiver1.google.com comp.lang.ada:31092
Date: 2002-11-19T10:00:41+01:00
List-Id: <comp.lang.ada>

On 18 Nov 2002 17:18:10 +0100, Pascal Obry <p.obry@wanadoo.fr> wrote:

>
>Dmitry A. Kazakov <mailbox@dmitry-kazakov.de> writes:
>
>> >    loop
>> >        TV := new T; -- should terminate immediately
>> >        while not TV.all'Terminated loop
>> >            delay 0.0;
>> >        end loop;
>> >        -- Free (TV);
>> >        Count := Count + 1;
>> >        if Count mod 50_000 = 0 then
>> >            Ada.Text_IO.Put_Line (Counter'Image (Count) & " tasks");
>> >        end if;
>> >    end loop;
>> >
>> >end Crazy_Tasks;
>> 
>> This does not leak in ObjectAda 7.2 under Windows. [Trumpets!]
>
>!!!!! How is this possible ? A "new" without a "Free" and you claim no memory
>leak !!!!!

Sorry!! It was misleading! I could not imagine that someone would
require the above to work with Free commented out. MY FAULT.

To clarify everything, of course, it does not leak ONLY if Free is
called. Without Free, Object Ada "leaks". But it is not a leak, it is
just a program design fault.

---
Regards,
Dmitry Kazakov
www.dmitry-kazakov.de