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,901038687c38f61c
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newshosting.com!nx02.iad01.newshosting.com!newsfeeds.sol.net!posts.news.twtelecom.net!nnrp2.twtelecom.net!not-for-mail
From: "Matthew Heaney" <mheaney@on2.com>
Newsgroups: comp.lang.ada
References: <M3Ocd.237$5i5.72@newsread2.news.atl.earthlink.net>
 <mailman.25.1098102395.10401.comp.lang.ada@ada-france.org>
 <FH_cd.575$KJ6.64@newsread1.news.pas.earthlink.net>
 <u4qkrtgn2.fsf@earthlink.net>
 <xWidd.1831$%h1.1234@newsread3.news.pas.earthlink.net>
 <uu0spvpis.fsf@earthlink.net>
 <P2tdd.3504$ta5.1130@newsread3.news.atl.earthlink.net>
Subject: Re: Idiom for a class and an object in Ada
Date: Wed, 20 Oct 2004 11:27:20 -0400
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Response
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Message-ID: <417683de$0$91007$39cecf19@news.twtelecom.net>
Organization: Time-Warner Telecom
NNTP-Posting-Date: 20 Oct 2004 15:27:26 GMT
NNTP-Posting-Host: 11e43aa2.news.twtelecom.net
X-Trace: 
 DXC=NdCRPR6L[e^SW6MMT7Gj0ZC_A=>8kQj6]hHXa^^g6TZT<4TLheeGkdQdYZAA8S:<lP3XhbC9DY[e[
X-Complaints-To: abuse@twtelecom.net
Xref: g2news1.google.com comp.lang.ada:5527
Date: 2004-10-20T15:27:26+00:00
List-Id: <comp.lang.ada>


"Marin David Condic" <nobody@noplace.com> wrote in message 
news:P2tdd.3504$ta5.1130@newsread3.news.atl.earthlink.net...
>
> In my particular example, I have outlawed the use of access types. It 
> doesn't matter why.

If you want to outlaw dynamic allocation, that's one thing.  But if you want 
to outlaw access types, that's another thing.

I showed in an earlier post how to use access types, but hide the fact that 
access types are used:

package P is
   type T (<>) is limited private;
   procedure Op (O : in T);
   function O1 return T;
   function O2 return T;
private
   type Rep_Type is limited ... end record;

   type T is access all Rep_Type;
   for T'Storage_Size use 0;
end P;