diff options
Diffstat (limited to 'gcc/ada/s-atacco.ads')
| -rw-r--r-- | gcc/ada/s-atacco.ads | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/gcc/ada/s-atacco.ads b/gcc/ada/s-atacco.ads new file mode 100644 index 00000000000..e5db1ee268a --- /dev/null +++ b/gcc/ada/s-atacco.ads @@ -0,0 +1,33 @@ +------------------------------------------------------------------------------ +-- -- +-- 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; + function To_Address (Value : Object_Pointer) return Address; + + pragma Convention (Intrinsic, To_Pointer); + pragma Convention (Intrinsic, To_Address); + +end System.Address_To_Access_Conversions; |