From: Robert Dewar Date: Mon, 1 Aug 2011 10:13:07 +0000 (+0000) Subject: a-ztexio.ads, [...]: Fix comment. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ff58cc6919e0364fddc7dc355c48246ad1e7c2e6;p=gcc.git a-ztexio.ads, [...]: Fix comment. 2011-08-01 Robert Dewar * 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 3d054405b6c..f8cebbace6c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-08-01 Robert Dewar + + * a-ztexio.ads, a-textio.ads, a-witeio.ads: Fix comment. + 2011-08-01 Robert Dewar * aspects.ads (Boolean_Aspects): New subtype. diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index d22b2f9c635..1999b7cc1ab 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 2cf02b69b05..d9c088f23e1 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 6c75acd1936..b03af58c48b 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;