Subversion Repositories openrisc

with System;
 
package Opt21_Pkg is
 
   type R is record
      Ptr : System.Address := System.Null_Address;
   end record;
 
   type Obj is access all R;
 
   function Get_Object (Object : not null access R) return System.Address;
 
   function Convert (W : Obj) return System.Address;
 
end Opt21_Pkg;