a-ztexio.adb: Minor code reorganization Remove redundant test found working on anothe...
authorRobert Dewar <dewar@adacore.com>
Wed, 20 Aug 2008 12:34:46 +0000 (14:34 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 20 Aug 2008 12:34:46 +0000 (14:34 +0200)
2008-08-20  Robert Dewar  <dewar@adacore.com>

* a-ztexio.adb: Minor code reorganization
Remove redundant test found working on another issue

From-SVN: r139282

gcc/ada/a-ztexio.adb

index 4bf70405c6766864de63579824a805f621ddc034..5c97ccd59b683aef901fee2b1722642cec9169d8 100644 (file)
@@ -1552,7 +1552,7 @@ package body Ada.Wide_Wide_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