From f42d9b4b8469ec98ebb7bd99f6d7b11fb6e43ced Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 28 Apr 2016 10:59:17 +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: r235557 --- 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 4457dbb70496..3024031c5c4f 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. + 2015-12-06 Eric Botcazou PR ada/56274 diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index f28711e57f2b..cd33cf9aa047 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.2