diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-04-28 10:58:38 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-04-28 10:58:38 +0000 |
| commit | 24efbb3e41ad07504ace2e6104fc0c0a6291068e (patch) | |
| tree | 55dbd5387d0d0872d4a8747141fc902ff42c0fd1 | |
| parent | 00c072ae51c132e346eab0c6f8c176542efbcd5a (diff) | |
| download | gcc-24efbb3e41ad07504ace2e6104fc0c0a6291068e.zip gcc-24efbb3e41ad07504ace2e6104fc0c0a6291068e.tar.gz gcc-24efbb3e41ad07504ace2e6104fc0c0a6291068e.tar.bz2 | |
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
| -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 f277eaf..cd0ec39 100644 --- 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 59f9190..f9219e3 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; |