Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gnat.dg
/
disp2_pkg.adb
blob: ed460ec453f69f7bbd9e151a406599cd56e3ef9c [
file
] [
log
] [
blame
]
package
body
Disp2_Pkg
is
function
Impl_Of
(
Self
:
access
Object
)
return
Object_Ptr
is
begin
return
Object_Ptr
(
Self
);
end
Impl_Of
;
end
Disp2_Pkg
;