re PR ada/70786 (Missing "not" breaks Ada.Text_IO.Get_Immediate(File, Item, Available))

	PR ada/70786
	* a-textio.adb (Get_Immediate): Add missing 'not' in expression.

From-SVN: r235557

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4457dbb7049636977f21c034b940e8e9e4a3426d..3024031c5c4f76f34af1a10bd73b061cb63d1dd6 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-04-28  Eric Botcazou  <ebotcazou@adacore.com>
+
+       PR ada/70786
+       * a-textio.adb (Get_Immediate): Add missing 'not' in expression.
+
 2015-12-06  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR ada/56274

diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb
index f28711e57f2b763c59f7b3f598cc347cd1fac738..cd33cf9aa047a669fd20055bd9d21c7ec43aae8e 100644 (file)
--- a/gcc/ada/a-textio.adb
+++ b/gcc/ada/a-textio.adb
@@ -668,7 +668,7 @@ package body Ada.Text_IO is
             Available := True;
 
             Item :=
-              (if Is_Start_Of_Encoding (Character'Val (ch), File.WC_Method)
+              (if not Is_Start_Of_Encoding (Character'Val (ch), File.WC_Method)
                then Character'Val (ch)
                else Get_Upper_Half_Char_Immed (Character'Val (ch), File));
          end if;