a-textio.adb: Remove redundant test.

2008-08-20  Robert Dewar  <dewar@adacore.com>

	* a-textio.adb: Remove redundant test.

From-SVN: r139280
This commit is contained in:
Robert Dewar 2008-08-20 14:34:01 +02:00 committed by Arnaud Charlet
parent 382d35e0df
commit 22e3716435

View File

@ -1856,7 +1856,7 @@ package body Ada.Text_IO is
if Start = 0 then
File.WC_Method := WCEM_Brackets;
elsif Start /= 0 then
else
if Stop = Start then
for J in WC_Encoding_Letters'Range loop
if File.Form (Start) = WC_Encoding_Letters (J) then