Sign in
gnu
/
gcc
/
2ead0bd7a4111845cb91592b2aa33cd3d73d3fea
/
.
/
gcc
/
testsuite
/
gnat.dg
/
dispatch2_p.adb
blob: 243c3ca977a6abdf8a48f9348140b1e9077f8841 [
file
] [
log
] [
blame
]
--
package
body dispatch2_p
is
function
Impl_Of
(
Self
:
access
Object
)
return
Object_Ptr
is
begin
return
Object_Ptr
(
Self
);
end
Impl_Of
;
end
;