1generic
2   type Record_Type;
3package Incomplete5_Pkg is
4
5   type Access_Type is access Record_Type;
6
7   type Base_Object is tagged record
8      Handle: Access_Type;
9   end record;
10
11   function Get_Handle(Object: Base_Object) return Access_Type;
12
13   function From_Handle(Handle: Access_Type) return Base_Object;
14
15end Incomplete5_Pkg;
16