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:
parent
382d35e0df
commit
22e3716435
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user