Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.3.1
/
gcc
/
testsuite
/
gnat.dg
/
dispatch2_p.ads
blob: e7852b446b5c0aa65730774b7fb47de9b5d816cb [
file
] [
log
] [
blame
]
package
dispatch2_p
is
type
Object
is
tagged
null
record
;
type
Object_Ptr
is
access all
Object
'CLASS;
--
function Impl_Of (Self : access Object) return Object_Ptr;
function Get_Ptr (Self : access Object) return Object_Ptr
renames Impl_Of;
end;