1 package body Tagged_Type_Pkg
is
3 function Pass_TT_Access
(Obj
: access TT
'Class) return access TT
'Class is
9 -- The implicit conversion in the assignment to the return object
10 -- must fail if Obj's actual is not a library-level object.
12 return TT_Acc
: access TT
'Class := Obj
do
13 TT_Acc
:= TT_Acc
.Self
;