Re: newbie to generic

[Preben Randhol <randhol+abuse@pvv.org>]

On Fri, 17 May 2002 11:13:12 +0200, Sebastian wrote:

> whats wring with this?

First stop posting HTML to a news group. Turn on text only in your
newsreader.

> function To_Add is new =
> System.Address_To_Access_Conversions.To_Address(Procedure_Ptr_Type);

because the package System.Address_To_Access_Conversions is defined as
this (arm95 - 13.7.2):

  generic
     type Object(<>) is limited private;
  package System.Address_To_Access_Conversions
  is
  pragma Preelaborate(Address_To_Access_Conversions);
  type Object_Pointer is access all Object;
  [...]
  function To_Address(Value : Object_Pointer) return Address;
  [...]
  end System.Address_To_Access_Conversions;


This means that you have to do:

   package My_Address_Conversion is 
      new System.Address_To_Access_Conversions (Object => Procedure_Type);

and then you call To_Address like this:

   My_Address_Conversion.To_Address(Procedure_Ptr_Type);

-- 
Preben