Re: A Problem With Access Types

[callen@inmet.UUCP]

Try something like this (but be forewarned that the code is not necessarily
going to be portable):

with Unchecked_Conversion;
with System;
...
     type A_REC is
       record
          ...
       end;

     type A_ACCESS is access A_REC;

     function Make_Pointer is new Unchecked_Conversion(
       SOURCE=>System.Address, TARGET=>A_ACCESS);

     A : A_REC;
     A_A : A_ACCESS;

     begin
         ...
         A_A := Make_Pointer(A'Address);  
         UPDATE(A_A);
         ...
     end;

-- Jerry Callen
   Intermetrics, Inc.
   733 Concord Ave.
   Cambridge, MA 01238
   (617) 661-1840

   ...{ihnp4,ima}!inmet!ada-uts!callen