[fpc-devel] THE CAUSE OF BUG 3977 (read/readln bug)

[lqs]

Yesterday I posted a bug report of the read/readln bug in the rtl, in
the link http://www.freepascal.org/bugs/showrec.php3?ID=3977 . I
examined the rtl source today and found what causes the bug. In the
file fpc/rtl/inc/text.inc, line 756, there is a function called
NextChar. The last two line in the function, "else NextChar:=false",
the corresponding "if" is the second one. So I added another "else
NextChar:=false", and everything works well.