blob: 6a7d92b41e00e719dbfdb2ca965e3ec54df19b69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
with Ada.Strings.Fixed.Hash;
package body Limited_With3_Pkg1 is
function Equal ( Left, Right : Element_Access) return Boolean is
begin
return True;
end;
function Equivalent_Keys (Left, Right : Key_Type) return Boolean is
begin
return True;
end;
function Hash (Key : Key_Type) return Ada.Containers.Hash_Type is
begin
return Ada.Strings.Fixed.Hash (Key.all);
end Hash;
end Limited_With3_Pkg1;
|
