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