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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,68536605ede13a20
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Received: by 10.68.74.201 with SMTP id w9mr9147325pbv.0.1324592316218;
        Thu, 22 Dec 2011 14:18:36 -0800 (PST)
Path: 
 lh20ni53103pbb.0!nntp.google.com!news2.google.com!postnews.google.com!j10g2000vbe.googlegroups.com!not-for-mail
From: Simon Belmont <sbelmont700@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: GNAT - return by anonymous access
Date: Thu, 22 Dec 2011 14:11:40 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <8a7d4dc1-69e5-479f-84a3-5c9c7bdd9aae@j10g2000vbe.googlegroups.com>
References: 
 <784c67eb-a542-41b0-b23d-fca1234e56b2@n10g2000vbg.googlegroups.com>
 <jcoidj$lpr$1@munin.nbi.dk>
 <b896b012-1f49-494c-a585-3d37a7c0965a@q9g2000yqe.googlegroups.com>
 <jcr551$2jq$1@munin.nbi.dk>
 <95f3b0fc-af24-4ace-afc9-227e8893ea99@n6g2000vbg.googlegroups.com>
 <91845790-2447-4b2c-a6b5-1a52557c8c17@d10g2000vbk.googlegroups.com>
 <4f78ef9f-ca8d-43ef-ab71-0f775fbeebd9@z19g2000vbe.googlegroups.com>
 <6e5ee357-7409-4974-917c-d7236c782d31@h11g2000yqd.googlegroups.com>
NNTP-Posting-Host: 24.218.138.255
Mime-Version: 1.0
X-Trace: posting.google.com 1324592316 25560 127.0.0.1 (22 Dec 2011 22:18:36
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 22 Dec 2011 22:18:36 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: j10g2000vbe.googlegroups.com; posting-host=24.218.138.255;
 posting-account=ShYTIAoAAABytvcS76ZrG9GdaV-nXYKy
User-Agent: G2/1.0
X-Google-Web-Client: true
X-Google-Header-Order: ARLUEHNKC
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0;
 Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR
 3.5.30729; .NET CLR 3.0.30729; .NET4.0C; InfoPath.2),gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Date: 2011-12-22T14:11:40-08:00
List-Id: <comp.lang.ada>

On Dec 22, 2:11=A0am, Adam Beneschan <a...@irvine.com> wrote:

> I think this could be solved by declaring a private type (limited
> private, if you prefer) to represent an "access" or "handle" or
> "reference" to test_type.
>

That's essentially the path I was taking, but it's doesn't scale well
(at all, really).  You essentially have to remake every primitive
operation of the original type for the new faux-access to forward the
calls so that anything useful could be done.  I guess on a case-by-
case basis that would work, but not in general.  And if you provide a
function to return the access type, then you are right back into the
same situation of having it exposed to potential grief.  It's too bad
access types can't be limited...

>
> You might want to check out
>
> http://www.ada-auth.org/cgi-bin/cvsweb.cgi/ais/ai-10318.txt?rev=3D1.16
>

Thanks for that link, it was exactly the type of info i was interested
in.

-sb