diff options
Diffstat (limited to 'gcc/ada/s-htable.ads')
| -rw-r--r-- | gcc/ada/s-htable.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-htable.ads b/gcc/ada/s-htable.ads index 762690bab33..95622aea7c5 100644 --- a/gcc/ada/s-htable.ads +++ b/gcc/ada/s-htable.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1995-2005 AdaCore -- +-- Copyright (C) 1995-2007, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -54,7 +54,7 @@ package System.HTable is generic type Header_Num is range <>; - -- An integer type indicating the number and range of hash headers. + -- An integer type indicating the number and range of hash headers type Element is private; -- The type of element to be stored @@ -120,7 +120,7 @@ package System.HTable is generic type Header_Num is range <>; - -- An integer type indicating the number and range of hash headers. + -- An integer type indicating the number and range of hash headers type Element (<>) is limited private; -- The type of element to be stored. This is historically part of the @@ -137,7 +137,7 @@ package System.HTable is -- type, but could be some other form of type such as an integer type). Null_Ptr : Elmt_Ptr; - -- The null value of the Elmt_Ptr type. + -- The null value of the Elmt_Ptr type with procedure Set_Next (E : Elmt_Ptr; Next : Elmt_Ptr); with function Next (E : Elmt_Ptr) return Elmt_Ptr; |