a-tigeau.ads, [...]: (Store_Char): Change Buf to IN OUT

2007-04-20  Robert Dewar  <dewar@adacore.com>

	* a-tigeau.ads, a-tigeau.adb: (Store_Char): Change Buf to IN OUT

From-SVN: r125385

diff --git a/gcc/ada/a-tigeau.adb b/gcc/ada/a-tigeau.adb
index 425011c764c776d4bb37618f06521d3a72cc9468..919d690bc29bcc1925f038b4251c3b329394b488 100644 (file)
--- a/gcc/ada/a-tigeau.adb
+++ b/gcc/ada/a-tigeau.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -426,7 +426,7 @@ package body Ada.Text_IO.Generic_Aux is
    procedure Store_Char
      (File : File_Type;
       ch   : int;
-      Buf  : out String;
+      Buf  : in out String;
       Ptr  : in out Integer)
    is
    begin

diff --git a/gcc/ada/a-tigeau.ads b/gcc/ada/a-tigeau.ads
index 786b7556d33ba4095d2f51b3cb53845abd1e29ac..d04437391425af936ad1c4614c33851031a2b9af 100644 (file)
--- a/gcc/ada/a-tigeau.ads
+++ b/gcc/ada/a-tigeau.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -164,7 +164,7 @@ private package Ada.Text_IO.Generic_Aux is
    procedure Store_Char
      (File : File_Type;
       ch   : Integer;
-      Buf  : out String;
+      Buf  : in out String;
       Ptr  : in out Integer);
    --  Store a single character in buffer, checking for overflow and
    --  adjusting the column number in the file to reflect the fact