Commit 24efbb3e by Eric Botcazou Committed by Eric Botcazou

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
parent 00c072ae
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
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment