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-18 08:18:12 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!nycmny1-snf1.gtei.net!news.gtei.net!colt.net!easynet-quince!easynet.net!teaser.fr!wanadoo.fr!not-for-mail
From: Pascal Obry <p.obry@wanadoo.fr>
Newsgroups: comp.lang.ada
Subject: Re: dynamic multithreading
Date: 18 Nov 2002 17:18:10 +0100
Organization: Home - http://perso.wanadoo.fr/pascal.obry
Message-ID: <uzns6etrx.fsf@wanadoo.fr>
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>
NNTP-Posting-Host: avelizy-103-1-4-64.abo.wanadoo.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: news-reader11.wanadoo.fr 1037636291 23545 80.11.102.64 (18 Nov 2002
 16:18:11 GMT)
X-Complaints-To: abuse@wanadoo.fr
NNTP-Posting-Date: 18 Nov 2002 16:18:11 GMT
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.92
Xref: archiver1.google.com comp.lang.ada:31049
Date: 2002-11-18T16:18:11+00:00
List-Id: <comp.lang.ada>


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 !!!!!

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|         http://perso.wanadoo.fr/pascal.obry
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595