diff options
Diffstat (limited to 'gcc/ada/s-htable.adb')
| -rw-r--r-- | gcc/ada/s-htable.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-htable.adb b/gcc/ada/s-htable.adb index d8d419d..cc890d6 100644 --- a/gcc/ada/s-htable.adb +++ b/gcc/ada/s-htable.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1995-2005 AdaCore -- +-- Copyright (C) 1995-2006, 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- -- @@ -48,9 +48,9 @@ package body System.HTable is Iterator_Started : Boolean := False; function Get_Non_Null return Elmt_Ptr; - -- Returns Null_Ptr if Iterator_Started is false of the Table is - -- empty. Returns Iterator_Ptr if non null, or the next non null - -- element in table if any. + -- Returns Null_Ptr if Iterator_Started is false or the Table is empty. + -- Returns Iterator_Ptr if non null, or the next non null element in + -- table if any. --------- -- Get -- |