a-textio.adb: Remove redundant test.

2008-08-20 Robert Dewar <dewar@adacore.com> * a-textio.adb: Remove redundant test. From-SVN: r139280

a-textio.adb: Remove redundant test.
2008-08-20 Robert Dewar <dewar@adacore.com> * a-textio.adb: Remove redundant test. From-SVN: r139280
22e37164 · Robert Dewar · Arnaud Charlet · 382d35e0 · 22e37164
Commit 22e37164 authored 16 years ago by Robert Dewar Committed by Arnaud Charlet 16 years ago
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 1 deletions

gcc/ada/a-textio.adb
+1 -1

No files found.
--- a/gcc/ada/a-textio.adb
+++ b/gcc/ada/a-textio.adb
@@ -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