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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.224.125.72 with SMTP id x8mr5068658qar.5.1380050610707;
 Tue, 24 Sep 2013 12:23:30 -0700 (PDT)
X-Received: by 10.182.199.39 with SMTP id jh7mr105868obc.25.1380050610666;
 Tue, 24 Sep 2013 12:23:30 -0700 (PDT)
Path: 
 border1.nntp.dca3.giganews.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!news.glorb.com!d5no1700420qap.0!news-out.google.com!9ni111qaf.0!nntp.google.com!d5no1779756qap.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 24 Sep 2013 12:23:30 -0700 (PDT)
In-Reply-To: <97df4d04-3830-44f7-96da-118a71035392@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=66.126.103.122;
 posting-account=RxNzCgoAAACA5KmgtFQuaU-WaH7rjnAO
NNTP-Posting-Host: 66.126.103.122
References: <58149dd9-990d-415c-a121-bc7a1a69473c@googlegroups.com>
 <97df4d04-3830-44f7-96da-118a71035392@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <1189d095-57c5-4560-bc7b-9f48668d5ad8@googlegroups.com>
Subject: Re: Accessibility Levels and Library-Level Units
From: Adam Beneschan <adambeneschan@aol.com>
Injection-Date: Tue, 24 Sep 2013 19:23:30 +0000
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Original-Bytes: 2129
Xref: number.nntp.dca.giganews.com comp.lang.ada:183446
Date: 2013-09-24T12:23:30-07:00
List-Id: <comp.lang.ada>

On Tuesday, September 24, 2013 11:54:11 AM UTC-7, Eryndlia Mavourneen wrote=
:
> Actually, I realize that the nested procedure whose 'Access is taken is n=
ot at library level, but it still is frustrating that this obviously(?) saf=
e code is not acceptable to the compiler.
>=20
>=20
>=20
> -- Eryndlia (KK1T)

It's not safe.  You don't give the declaration of "Sub", but if it's someth=
ing like

    procedure Sub (Proc : Proc_Type);

then for all the compiler knows, Sub could assign some global variable of t=
ype Proc_Type to Proc (Glob_Proc :=3D Proc;).  Then an access to Test would=
 exist after Accessibility_Level_Test exited, which is no good (it could be=
 a disaster if the global variable was later used for a procedure call).

                          -- Adam