OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Robert Dewar 2011-08-01 10:13:07 +00:00 committed by Arnaud Charlet
parent 6bb8853384
commit ff58cc6919
4 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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.

7
gcc/ada/a-textio.ads
View File

@ -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;

7
gcc/ada/a-witeio.ads
View File

@ -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;

7
gcc/ada/a-ztexio.ads
View File

@ -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;