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,9ce5fb49dc74582f
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!tiscali!newsfeed1.ip.tiscali.net!proxad.net!fdn.fr!news.wanadoo.fr!news.wanadoo.fr!not-for-mail
Message-ID: <456333E3.2030603@obry.net>
Date: Tue, 21 Nov 2006 18:14:11 +0100
From: Pascal Obry <pascal@obry.net>
Organization: Home - http://www.obry.net
User-Agent: Thunderbird 1.5 (Windows/20051201)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
To: Matthew Heaney <mheaney@on2.com>
Subject: Re: generic question
References: <1163959439.299036.129940@e3g2000cwe.googlegroups.com>
   <87mz6nnt4v.fsf@ludovic-brenta.org>
   <20061119202320.19149a2f@cube.tz.axivion.com>   <4560D5BE.5060508@obry.net>
   <1164059458.442430.110710@j44g2000cwa.googlegroups.com>
   <4562a51a$0$27404$ba4acef3@news.orange.fr>
   <4sfrbnFv4ibiU1@mid.individual.net>   <uy7q4q3l5.fsf@earthlink.net>
 <1164124046.512943.224790@m7g2000cwm.googlegroups.com>
In-Reply-To: <1164124046.512943.224790@m7g2000cwm.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
NNTP-Posting-Date: 21 Nov 2006 18:14:12 CET
NNTP-Posting-Host: 82.124.120.155
X-Trace: 1164129252 news.orange.fr 5111 82.124.120.155:3271
X-Complaints-To: abuse@orange.fr
Xref: g2news2.google.com comp.lang.ada:7612
Date: 2006-11-21T18:14:12+01:00
List-Id: <comp.lang.ada>

Matthew Heaney a �crit :
> Matthew Heaney wrote:
>> "Alex R. Mosteo" <devnull@mailinator.com> writes:
>>
>> What you did above would be the idiom when you using the package itself to
>> control allocation of objects:
> 
> Actually, I might do this differently for tagged vs. non-tagged types:
> 
> package P is
>   type T (<>) is limited private;
>   type T_Access is access T;
>   function New_T return T_Access;
>   procedure Free (X : in out T_Access);
> ....
> end P;
> 
> At least this way you can set the pointer value to null on return from
> Free.  

Yes, but there is no more anonymous access type... as I said in a
previous message (and you made my point)... why even bother with them ?

Pascal.

-- 

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