1package body Disp2_Pkg is 2 3 function Impl_Of (Self : access Object) return Object_Ptr is 4 begin 5 return Object_Ptr (Self); 6 end Impl_Of; 7 8end Disp2_Pkg; 9