diff options
Diffstat (limited to 'gcc/ada/a-cohata.ads')
| -rw-r--r-- | gcc/ada/a-cohata.ads | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/gcc/ada/a-cohata.ads b/gcc/ada/a-cohata.ads new file mode 100644 index 00000000000..068efc6a2a8 --- /dev/null +++ b/gcc/ada/a-cohata.ads @@ -0,0 +1,35 @@ +------------------------------------------------------------------------------ +-- -- +-- 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; |