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