PR ada/70786
* a-textio.adb (Get_Immediate): Add missing 'not' in expression.
From-SVN: r235554
+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
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;