Subversion Repositories openrisc_2011-10-31

with Ada.Tags.Generic_Dispatching_Constructor;

with Ada.Tags.Generic_Dispatching_Constructor;

package generic_dispatch_p is

package generic_dispatch_p is

   type Iface is interface;

   type Iface is interface;

   function Constructor (I : not null access Integer) return Iface is abstract;

   function Constructor (I : not null access Integer) return Iface is abstract;

   function Dispatching_Constructor

   function Dispatching_Constructor

      is new Ada.Tags.Generic_Dispatching_Constructor

      is new Ada.Tags.Generic_Dispatching_Constructor

               (T           => Iface,

               (T           => Iface,

                Parameters  => Integer,

                Parameters  => Integer,

                Constructor => Constructor);

                Constructor => Constructor);

   type DT is new Iface with null record;

   type DT is new Iface with null record;

   overriding

   overriding

   function Constructor (I : not null access Integer) return DT;

   function Constructor (I : not null access Integer) return DT;

end;

end;