From 535d6bc8b42aef8da288c3755da33dc91523167a Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Thu, 28 Apr 2016 10:58:38 +0000 Subject: [PATCH] PR ada/70786 * a-textio.adb (Get_Immediate): Add missing 'not' in expression. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235554 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 f277eaf2ed33..cd0ec39fbf81 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 59f9190ac188..f9219e3b3a91 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.47.3