1 ------------------------------------------------------------------------------
3 -- GNAT LIBRARY COMPONENTS --
5 -- ADA.CONTAINERS.HASH_TABLES --
9 -- This specification is adapted from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
16 with Ada
.Finalization
;
18 package Ada
.Containers
.Hash_Tables
is
22 type Node_Access
is private;
24 package Generic_Hash_Table_Types
is
25 type Buckets_Type
is array (Hash_Type
range <>) of Node_Access
;
27 type Buckets_Access
is access Buckets_Type
;
29 type Hash_Table_Type
is new Ada
.Finalization
.Controlled
with record
30 Buckets
: Buckets_Access
;
31 Length
: Count_Type
:= 0;
33 end Generic_Hash_Table_Types
;
35 end Ada
.Containers
.Hash_Tables
;