Subversion Repositories openrisc

with Ada.Containers.Hashed_Maps;
 
generic
 
     type Object_Type is tagged private;
 
package Limited_With3_Pkg1 is
 
     type Key_Type is access all String;
 
     type Element_Type is new Object_Type with null record;
 
     type Element_Access is access all Element_Type;
 
     function Equal (Left, Right : Element_Access) return Boolean;
 
     function Equivalent_Keys (Left, Right : Key_Type) return Boolean;
 
     function Hash (Key : Key_Type) return Ada.Containers.Hash_Type;
 
     package Table_Package is new Ada.Containers.Hashed_Maps (
         Key_Type            => Key_Type,
         Element_Type        => Element_Access,
         Hash                => Hash,
         Equivalent_Keys     => Equivalent_Keys,
         "="                 => Equal);
 
end Limited_With3_Pkg1;