GNAT COMPILER COMPONENTS

S Y S T E M . A D D R E S S _ T O _ A C C E S S _ C O N V E R S I O N S

S p e c

$Revision: 1.3 $

This specification is adapted from the Ada Reference Manual for use with GNAT. In accordance with the copyright of that document, you can freely copy and modify this specification, provided that if you redistribute a modified version, any changes that you have made are clearly indicated.

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;
for Object_Pointer'Size use Standard'Address_Size;

function To_Pointer (Value : Address)        return Object_Pointer;
pragma Convention (Intrinsic, To_Pointer);

function To_Address (Value : Object_Pointer) return Address;
pragma Convention (Intrinsic, To_Address);

end System.Address_To_Access_Conversions;