1package body Opt21_Pkg is 2 3 function Get_Object (Object : not null access R) return System.Address is 4 begin 5 return Object.Ptr; 6 end; 7 8 function Convert (W : Obj) return System.Address is 9 begin 10 if W = null then 11 return System.Null_Address; 12 else 13 return Get_Object (W); 14 end if; 15 end; 16 17end Opt21_Pkg; 18