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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,11e34713e74457c,start
X-Google-Attributes: gid103376,public
From: t_mjb@linkabit.titan.com
Subject: Conversion of access types ...
Date: 1997/04/30
Message-ID: <5k64m8$jv4@taxis.corp.titan.com>#1/1
X-Deja-AN: 238281033
Organization: Titan Linkabit
Reply-To: t_mjb@linkabit.titan.com
Newsgroups: comp.lang.ada
Date: 1997-04-30T00:00:00+00:00
List-Id: <comp.lang.ada>


type F is tagged record A: Integer; end record;
type P is access all F;

I am trying to convert a variable of type P to an unsigned long (ULONG) which will
allow me to pass this value on to a system procedure which will, when the data
finally arrives at its destination, will be converted back into type P.

I cannot seem to get this scenario to work and I cannot think of another way to
make it work. I'm using GNAT 3.09 and OS/2 emx 0.9c (the variable of type P is being
set using WinSetWindowULong and retrieved using WinQueryWindowULong...any help
would be greatly appreciated.

Marc Bejerano