FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

a-tienio.adb (Get): Adjust buffer size to accomodate one extra character

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

	* a-tienio.adb (Get): Adjust buffer size to accomodate one extra
	character

From-SVN: r125381
This commit is contained in:
Robert Dewar 2007-06-06 12:21:11 +02:00 • committed by Arnaud Charlet
parent 0ebb72c85d
commit cc9e83af09
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/a-tienio.adb
View file

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- 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- --
@ -42,7 +42,7 @@ package body Ada.Text_IO.Enumeration_IO is
---------
procedure Get (File : File_Type; Item : out Enum) is
Buf : String (1 .. Enum'Width);
Buf : String (1 .. Enum'Width + 1);
Buflen : Natural;
begin