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