diff options
Diffstat (limited to 'gcc/ada/a-cfhase.ads')
| -rw-r--r-- | gcc/ada/a-cfhase.ads | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/gcc/ada/a-cfhase.ads b/gcc/ada/a-cfhase.ads index ecc70e4e5d2..ea77968afea 100644 --- a/gcc/ada/a-cfhase.ads +++ b/gcc/ada/a-cfhase.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2011, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -257,19 +257,8 @@ private package HT_Types is new Ada.Containers.Hash_Tables.Generic_Bounded_Hash_Table_Types (Node_Type); - type HT_Access is access all HT_Types.Hash_Table_Type; - - type Kind is (Plain, Part); - - type Set (Capacity : Count_Type; Modulus : Hash_Type) is tagged record - HT : HT_Access := - new HT_Types.Hash_Table_Type'(Capacity, Modulus, - others => <>); - K : Kind := Plain; - Length : Count_Type := 0; - First : Count_Type := 0; - Last : Count_Type := 0; - end record; + type Set (Capacity : Count_Type; Modulus : Hash_Type) is + new HT_Types.Hash_Table_Type (Capacity, Modulus) with null record; use HT_Types; use Ada.Streams; |