| ------------------------------------------------------------------------------ |
| -- -- |
| -- GNAT LIBRARY COMPONENTS -- |
| -- -- |
| -- ADA.CONTAINERS.HASH_TABLES -- |
| -- -- |
| -- S p e c -- |
| -- -- |
| -- This specification is adapted from the Ada Reference Manual for use with -- |
| -- GNAT. In accordance with the copyright of that document, you can freely -- |
| -- copy and modify this specification, provided that if you redistribute a -- |
| -- modified version, any changes that you have made are clearly indicated. -- |
| -- -- |
| ------------------------------------------------------------------------------ |
| |
| with Ada.Finalization; |
| |
| package Ada.Containers.Hash_Tables is |
| pragma Preelaborate; |
| |
| generic |
| type Node_Access is private; |
| |
| package Generic_Hash_Table_Types is |
| type Buckets_Type is array (Hash_Type range <>) of Node_Access; |
| |
| type Buckets_Access is access Buckets_Type; |
| |
| type Hash_Table_Type is new Ada.Finalization.Controlled with record |
| Buckets : Buckets_Access; |
| Length : Count_Type := 0; |
| end record; |
| end Generic_Hash_Table_Types; |
| |
| end Ada.Containers.Hash_Tables; |
