diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-28 10:58:54 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-28 10:58:54 +0000 |
commit | f67bf77be468ad8c274cc18f668afa8c82f1611d (patch) | |
tree | a2dd96a79ff9b44d69721230514a45ceaf737e7f | |
parent | 629b270c63ebc62234b2f6f02dd084ae8c8b5791 (diff) | |
download | gcc-f67bf77be468ad8c274cc18f668afa8c82f1611d.tar.gz |
PR ada/70786
* a-textio.adb (Get_Immediate): Add missing 'not' in expression.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-6-branch@235555 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/ada/a-textio.adb | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a235c06ca85..45f93826194 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2016-04-28 Eric Botcazou <ebotcazou@adacore.com> + PR ada/70786 + * a-textio.adb (Get_Immediate): Add missing 'not' in expression. + +2016-04-28 Eric Botcazou <ebotcazou@adacore.com> + Backport from mainline 2016-04-27 Eric Botcazou <ebotcazou@adacore.com> diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index dc0b45358fe..6a2108acad4 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; |