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.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail From: "Dmitry A. Kazakov" Newsgroups: comp.lang.ada Subject: Re: Accessibility Levels and Library-Level Units Date: Wed, 25 Sep 2013 09:46:36 +0200 Organization: cbb software GmbH Message-ID: <1ry7ls910q59n$.12x9k5v774phq$.dlg@40tude.net> References: <58149dd9-990d-415c-a121-bc7a1a69473c@googlegroups.com> Reply-To: mailbox@dmitry-kazakov.de NNTP-Posting-Host: IenaDxMXK2hi7fvYcb+MlQ.user.speranza.aioe.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Complaints-To: abuse@aioe.org User-Agent: 40tude_Dialog/2.0.15.1 X-Notice: Filtered by postfilter v. 0.8.2 Xref: news.eternal-september.org comp.lang.ada:17283 Date: 2013-09-25T09:46:36+02:00 List-Id: On Tue, 24 Sep 2013 12:06:06 -0700 (PDT), mockturtle wrote: > I think that the problem is that Test is "local to" (defined inside) > Accessibility_Level_Test. The problem is that you could have a > "perverted" procedure Sub like this [...] The problem is language design which forces pointers where none is needed. If Ada had procedural types no problem would ever arise as, none does when you pass, say, a Boolean. Using access-to-procedure for downward closures is an Ada 95 hack. In Ada 83 it was even worse, we had to use tasks! -- Regards, Dmitry A. Kazakov http://www.dmitry-kazakov.de