Subversion Repositories openrisc

package Ifaces is

package Ifaces is

   type Iface_1 is interface;

   type Iface_1 is interface;

   procedure op1(this : Iface_1) is abstract;

   procedure op1(this : Iface_1) is abstract;

-- 

-- 

   type Iface_2 is interface;

   type Iface_2 is interface;

   procedure op2 (this : Iface_2) is abstract;

   procedure op2 (this : Iface_2) is abstract;

--    

--    

   type Root is new Iface_1 with record

   type Root is new Iface_1 with record

      m_name : String(1..4);

      m_name : String(1..4);

   end record;

   end record;

-- 

-- 

   procedure op1 (this : Root);

   procedure op1 (this : Root);

--       

--       

   type DT is new Root and Iface_2 with null record;

   type DT is new Root and Iface_2 with null record;

   procedure op2 (this : DT);

   procedure op2 (this : DT);

end;

end;