blob: 251bf847748961ffe760378bc25baf4e73bc9fa3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
with System;
package Opt21_Pkg is
type 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;
|
