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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 3d054405b6ca0189d4d75f93cbf01dfe90688473..f8cebbace6cbe4b5ffca9360c530bd9e9c1dcb39 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads
index d22b2f9c635a9f6fe530b1b7d6d1db5632e9c920..1999b7cc1ab22fe5013a9caab63aa0ddf9cf5a19 100644 (file)
--- 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 2cf02b69b05b82a2f641218a08b50616be2ff69d..d9c088f23e121cfa781194f7e59e8abd3e7f8110 100644 (file)
--- 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 6c75acd193691e0e9d0bd1a642eb9960ad524aff..b03af58c48b1319d8c091e5edbac159085d0628c 100644 (file)
--- 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;