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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,1dc0c65a84aca901
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-05-17 02:35:10 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!128.39.3.168!uninett.no!ntnu.no!not-for-mail
From: Preben Randhol <randhol+abuse@pvv.org>
Newsgroups: comp.lang.ada
Subject: Re: newbie to generic
Date: Fri, 17 May 2002 09:35:09 +0000 (UTC)
Organization: Norwegian university of science and technology
Message-ID: <slrnae9jmd.1qj.randhol+abuse@kiuk0156.chembio.ntnu.no>
References: <ac2hbs$ljq$1@newstoo.ericsson.se>
NNTP-Posting-Host: kiuk0156.chembio.ntnu.no
X-Trace: tyfon.itea.ntnu.no 1021628109 12056 129.241.83.82 (17 May 2002
 09:35:09 GMT)
X-Complaints-To: usenet@itea.ntnu.no
NNTP-Posting-Date: Fri, 17 May 2002 09:35:09 +0000 (UTC)
User-Agent: slrn/0.9.7.4 (Linux)
Xref: archiver1.google.com comp.lang.ada:24256
Date: 2002-05-17T09:35:09+00:00
List-Id: <comp.lang.ada>

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