Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
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
;