1with System;
2
3package Opt21_Pkg is
4
5   type R is record
6      Ptr : System.Address := System.Null_Address;
7   end record;
8
9   type Obj is access all R;
10
11   function Get_Object (Object : not null access R) return System.Address;
12
13   function Convert (W : Obj) return System.Address;
14
15end Opt21_Pkg;
16