From 24efbb3e41ad07504ace2e6104fc0c0a6291068e Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 28 Apr 2016 10:58:38 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/a-textio.adb | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f277eaf2ed3..cd0ec39fbf8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2016-04-28 Eric Botcazou + + PR ada/70786 + * a-textio.adb (Get_Immediate): Add missing 'not' in expression. + 2016-04-27 Eric Botcazou * 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 59f9190ac18..f9219e3b3a9 100644 --- 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; -- 2.30.2