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: r235554

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f277eaf2ed335007fdf4d847b0fa6e10b8be6d47..cd0ec39fbf81d6bba42fc322eea3b62f0069317c 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.
+
 2016-04-27  Eric Botcazou  <ebotcazou@adacore.com>
 
        * sem_aux.adb (Is_By_Reference_Type): Also return true for a tagged

diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb
index 59f9190ac1889bd85ecb0e5d938e9318ac3f428c..f9219e3b3a91bcf39111a598036cb620d4631af8 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;