Skip to content

R
riscv-gcc-1
Commit ff58cc69 by Robert Dewar Committed by Arnaud Charlet
Options

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
parent 6bb88533
Showing with 13 additions and 12 deletions
gcc/ada/ChangeLog
2011-08-01 Robert Dewar <dewar@adacore.com> 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. * aspects.ads (Boolean_Aspects): New subtype.
* exp_ch13.adb (Expand_Freeze_Entity): Fix errors in handling aspects * exp_ch13.adb (Expand_Freeze_Entity): Fix errors in handling aspects
for derived types in cases where the parent type and derived type have for derived types in cases where the parent type and derived type have
......
gcc/ada/a-textio.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -62,9 +62,8 @@ package Ada.Text_IO is ...@@ -62,9 +62,8 @@ package Ada.Text_IO is
Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File)
type Count is range 0 .. Natural'Last; type Count is range 0 .. Natural'Last;
-- The value of Count'Last must be large enough so that the assumption -- The value of Count'Last must be large enough so that the assumption that
-- enough so that the assumption that the Line, Column and Page -- the Line, Column and Page counts can never exceed this value is valid.
-- counts can never exceed this value is a valid assumption.
subtype Positive_Count is Count range 1 .. Count'Last; subtype Positive_Count is Count range 1 .. Count'Last;
......
gcc/ada/a-witeio.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -64,9 +64,8 @@ package Ada.Wide_Text_IO is ...@@ -64,9 +64,8 @@ package Ada.Wide_Text_IO is
Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File)
type Count is range 0 .. Natural'Last; type Count is range 0 .. Natural'Last;
-- The value of Count'Last must be large enough so that the assumption -- The value of Count'Last must be large enough so that the assumption that
-- enough so that the assumption that the Line, Column and Page -- the Line, Column and Page counts can never exceed this value is valid.
-- counts can never exceed this value is a valid assumption.
subtype Positive_Count is Count range 1 .. Count'Last; subtype Positive_Count is Count range 1 .. Count'Last;
......
gcc/ada/a-ztexio.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -64,9 +64,8 @@ package Ada.Wide_Wide_Text_IO is ...@@ -64,9 +64,8 @@ package Ada.Wide_Wide_Text_IO is
Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File) Append_File => 3); -- System.File_IO.File_Mode'Pos (Append_File)
type Count is range 0 .. Natural'Last; type Count is range 0 .. Natural'Last;
-- The value of Count'Last must be large enough so that the assumption -- The value of Count'Last must be large enough so that the assumption that
-- enough so that the assumption that the Line, Column and Page -- the Line, Column and Page counts can never exceed this value is valid.
-- counts can never exceed this value is a valid assumption.
subtype Positive_Count is Count range 1 .. Count'Last; subtype Positive_Count is Count range 1 .. Count'Last;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment