1package body Incomplete5_Pkg is
2
3   function Get_Handle (Object: Base_Object) return Access_Type is
4   begin
5      return Object.Handle;
6   end;
7
8   function From_Handle (Handle: Access_Type) return Base_Object is
9   begin
10      return (Handle=>Handle);
11   end;
12
13end Incomplete5_Pkg;
14