1with Ada.Unchecked_Conversion; 2with System.Address_Image; 3package body Subp_Inst_Pkg is 4 5 function Image (Val : T_Access) return String is 6 function Convert is new Ada.Unchecked_Conversion 7 (T_Access, System.Address); 8 begin 9 return System.Address_Image (Convert (Val)); 10 end Image; 11 12 function T_Image (Val : access T) return String is 13 type T_Access is access all T; 14 function Convert is new Ada.Unchecked_Conversion 15 (T_Access, System.Address); 16 begin 17 return System.Address_Image (Convert (T_Access (Val))); 18 end T_Image; 19 20end Subp_Inst_Pkg; 21