with System;package Opt21_Pkg istype R is record
Ptr : System.Address := System.Null_Address;end record;type Obj is access all R;function Get_Object (Object :not null access R)return System.Address;function Convert (W : Obj)return System.Address;end Opt21_Pkg;