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

[Marco van de Voort]

[ Charset ISO-8859-1 unsupported, converting... ]
> 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.

Committed, but I put nextchar:=false as first line and removed the else.

SVN rev 15