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: 103376,34e28efa1a88ae84 X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!news2.google.com!news.glorb.com!feeder.erje.net!news.motzarella.org!motzarella.org!not-for-mail From: =?ISO-8859-1?Q?S=E9bastien?= Newsgroups: comp.lang.ada Subject: Re: Access procedure to pointer Date: Tue, 27 May 2008 17:45:25 +0000 Organization: A noiseless patient Spider Message-ID: <483C48B5.9060303@gmail.com> References: Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit X-Trace: feeder.motzarella.org U2FsdGVkX19N/4xkbhiQbAOARDYyr1C9Gz5db8I2kUDfbvoG8n9HmsPfr7Kzaav+vo3v9J34Hh3WctYIFu77yLHH7UEuUW/H7QkKTBYRKI1GJl0tHci6ofUwIMlrE/r6grt97QguEuTFOYaQQ9TcNQ== X-Complaints-To: Please send complaints to abuse@motzarella.org with full headers NNTP-Posting-Date: Tue, 27 May 2008 17:45:34 +0000 (UTC) In-Reply-To: X-Auth-Sender: U2FsdGVkX1/YS5c10k3kjr1tTYmxSh0cK0rsCCZHBh+tRRMq0467+A== Cancel-Lock: sha1:ppS2rR7FT1lyaW9dDBeJido2oVA= User-Agent: Thunderbird 2.0.0.14 (Windows/20080421) Xref: g2news1.google.com comp.lang.ada:399 Date: 2008-05-27T17:45:25+00:00 List-Id: Ludovic Brenta a �crit : > procedure Foo; > > Access_Foo : constant access procedure := Foo'Access; > > Foo_Address : constant System.Address := Foo'Address; > Foo_Address : constant System.Address := Access_Foo.all'Address; > It was refused by the compiler, "subtype mark is required here". I succeed using an unchecked conversion, looks like access to a procedure has the same size than System.address since I didn't get any warning. Sebastien