Re: Access to procedure and generics

["Egil Høvik" <egilhovik@hotmail.com>]

How about this:

with Callback;
generic 
package USE_CALLBACK is 
    procedure HANDLER; 
private
    The_Handler : constant Callback.Callback_t := Handler'Access;
end USE_CALLBACK; 
-- 
with CALLBACK; 
package body USE_CALLBACK 
is 
    procedure HANDLER is 
    begin 
       null; 
    end; 
begin 
    CALLBACK.REGISTER_CALLBACK(The_Handler'Access); 
end USE_CALLBACK; 
-- 

-- 
~egilhh