diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-01 10:13:07 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 12:13:07 +0200 |
| commit | ff58cc6919e0364fddc7dc355c48246ad1e7c2e6 (patch) | |
| tree | 80b2891d2bd962b1ad2899ce9772f36e8f54b80a /gcc/ada | |
| parent | 6bb8853384b56d015a5366da8a7572d50ad3bfc7 (diff) | |
| download | gcc-ff58cc6919e0364fddc7dc355c48246ad1e7c2e6.zip gcc-ff58cc6919e0364fddc7dc355c48246ad1e7c2e6.tar.gz gcc-ff58cc6919e0364fddc7dc355c48246ad1e7c2e6.tar.bz2 | |
a-ztexio.ads, [...]: Fix comment.
2011-08-01 Robert Dewar <dewar@adacore.com>
* a-ztexio.ads, a-textio.ads, a-witeio.ads: Fix comment.
From-SVN: r177006
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/a-textio.ads | 7 | ||||
| -rw-r--r-- | gcc/ada/a-witeio.ads | 7 | ||||
| -rw-r--r-- | gcc/ada/a-ztexio.ads | 7 |
4 files changed, 13 insertions, 12 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3d05440..f8cebbac 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2011-08-01 Robert Dewar <dewar@adacore.com> + * a-ztexio.ads, a-textio.ads, a-witeio.ads: Fix comment. + +2011-08-01 Robert Dewar <dewar@adacore.com> + * aspects.ads (Boolean_Aspects): New subtype. * exp_ch13.adb (Expand_Freeze_Entity): Fix errors in handling aspects for derived types in cases where the parent type and derived type have diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index d22b2f9..1999b7c 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, 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 -- @@ -62,9 +62,8 @@ package Ada.Text_IO is Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) type Count is range 0 .. Natural'Last; - -- The value of Count'Last must be large enough so that the assumption - -- enough so that the assumption that the Line, Column and Page - -- counts can never exceed this value is a valid assumption. + -- The value of Count'Last must be large enough so that the assumption that + -- the Line, Column and Page counts can never exceed this value is valid. subtype Positive_Count is Count range 1 .. Count'Last; diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index 2cf02b6..d9c088f 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, 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 -- @@ -64,9 +64,8 @@ package Ada.Wide_Text_IO is Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) type Count is range 0 .. Natural'Last; - -- The value of Count'Last must be large enough so that the assumption - -- enough so that the assumption that the Line, Column and Page - -- counts can never exceed this value is a valid assumption. + -- The value of Count'Last must be large enough so that the assumption that + -- the Line, Column and Page counts can never exceed this value is valid. subtype Positive_Count is Count range 1 .. Count'Last; diff --git a/gcc/ada/a-ztexio.ads b/gcc/ada/a-ztexio.ads index 6c75acd..b03af58 100644 --- a/gcc/ada/a-ztexio.ads +++ b/gcc/ada/a-ztexio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, 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 -- @@ -64,9 +64,8 @@ package Ada.Wide_Wide_Text_IO is Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) type Count is range 0 .. Natural'Last; - -- The value of Count'Last must be large enough so that the assumption - -- enough so that the assumption that the Line, Column and Page - -- counts can never exceed this value is a valid assumption. + -- The value of Count'Last must be large enough so that the assumption that + -- the Line, Column and Page counts can never exceed this value is valid. subtype Positive_Count is Count range 1 .. Count'Last; |