diff options
Diffstat (limited to 'gcc/ada/a-tigeau.ads')
| -rw-r--r-- | gcc/ada/a-tigeau.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-tigeau.ads b/gcc/ada/a-tigeau.ads index dabc6361734..cec0e2cf766 100644 --- a/gcc/ada/a-tigeau.ads +++ b/gcc/ada/a-tigeau.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.13 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- @@ -68,7 +68,7 @@ private package Ada.Text_IO.Generic_Aux is procedure Check_On_One_Line (File : File_Type; Length : Integer); -- Check to see if item of length Integer characters can fit on -- current line. Call New_Line if not, first checking that the - -- line length can accomodate Length characters, raise Layout_Error + -- line length can accommodate Length characters, raise Layout_Error -- if item is too large for a single line. function Getc (File : File_Type) return Integer; |