procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR ada/70786 (Missing "not" breaks Ada.Text_IO.Get_Immediate(File, Item, Available))

Browse source 
PR ada/70786
	* a-textio.adb (Get_Immediate): Add missing 'not' in expression.

From-SVN: r235554
This commit is contained in:
Eric Botcazou 2016-04-28 10:58:38 +00:00 • committed by Eric Botcazou
parent 00c072ae51
commit 24efbb3e41
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -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

2
gcc/ada/a-textio.adb
View file

@ -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;