Subversion Repositories openrisc_me

package body Tagged_Type_Pkg is
 
   function Pass_TT_Access (Obj : access TT'Class) return access TT'Class is
   begin
      if Obj = null then
         return null;
 
      else
         --  The implicit conversion in the assignment to the return object
         --  must fail if Obj's actual is not a library-level object.
 
         return TT_Acc : access TT'Class := Obj do
            TT_Acc := TT_Acc.Self;
         end return;
      end if;
   end Pass_TT_Access;
 
end Tagged_Type_Pkg;