Re: Access procedure to pointer

[Sébastien <seb.morand@gmail.com>]

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