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.4 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,b9a378a9a09dab87
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Received: by 10.180.106.199 with SMTP id gw7mr2322063wib.0.1346149946616;
        Tue, 28 Aug 2012 03:32:26 -0700 (PDT)
Path: 
 e9ni54686584wia.0!nntp.google.com!goblin1!goblin2!goblin.stu.neva.ru!aioe.org!.POSTED!not-for-mail
From: =?ISO-8859-1?Q?Markus_Sch=F6pflin?= <no.spam@spam.spam>
Newsgroups: comp.lang.ada
Subject: Re: Access to procedure and generics
Date: Tue, 28 Aug 2012 12:32:25 +0200
Organization: Aioe.org NNTP Server
Message-ID: <k1i6nn$3ib$1@speranza.aioe.org>
References: <k1i41v$sfk$1@speranza.aioe.org>
 <453242bc-2893-4390-9152-b8eef75b1149@googlegroups.com>
 <c7875243-5f2a-4ac2-8545-9185d1918861@googlegroups.com>
NNTP-Posting-Host: MdpKeRr+sx3LK7JQiK5aNw.user.speranza.aioe.org
Mime-Version: 1.0
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows NT 5.1;
 rv:14.0) Gecko/20120713 Thunderbird/14.0
X-Notice: Filtered by postfilter v. 0.8.2
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Date: 2012-08-28T12:32:25+02:00
List-Id: <comp.lang.ada>

Am 28.08.2012 12:22, schrieb Egil H�vik:
>
>>    CALLBACK.REGISTER_CALLBACK(The_Handler'Access);
>
> Should of course be:
> CALLBACK.REGISTER_CALLBACK(The_Handler);
>

Nope, doesn't work.

 > gnatmake -gnat95 test
gcc-4.4 -c -gnat95 test.adb
test.adb:4:04: instantiation error at use_callback.ads:7
test.adb:4:04: subprogram must not be deeper than access type

where use_callback.ads:7 looks like:

    THE_HANDLER : constant CALLBACK.CALLBACK_T := HANDLER'Access;