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