blob: 0b4903abe3458a5401887e15d899aa5a4449c66e (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
package Disp2_Pkg is
type Object is tagged null record;
type Object_Ptr is access all Object'CLASS;
function Impl_Of (Self : access Object) return Object_Ptr;
function Get_Ptr (Self : access Object) return Object_Ptr
renames Impl_Of;
end Disp2_Pkg;
|
