Справочник по Ada 95
13.7.2 Пакет System.Address_To_Access_Conversions
Статическая семантика
Существует следующий языковой обобщенный пакет библиотеки:
generic
type Object(<>) is limited private;
package System.Address_To_Access_Conversions is
pragma Preelaborate(Address_To_Access_Conversions);
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_Pointer(Value : Address) return Object_Pointer;
function To_Address(Value : Object_Pointer) return Address;
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;
pragma Convention(Intrinsic, To_Address);
end System.Address_To_Access_Conversions;
Подпрограммы To_Pointer и To_Address преобразуют значения типов Object_Pointer и Address в обе стороны. To_Pointer(X'Address) равно X'Unchecked_Access для любого X, допускающего Unchecked_Access. To_Pointer(Null_Address) возвращает null. Для других адресов поведение не определено. To_Address(null) возвращает Null_Address (для null соответствующего типа). To_Address(Y), где Y /= null, возвращает Y.all'Address.
Разрешения реализации
Реализация может наложить ограничения на экземпляры Address_To_Access_Conversions.
