paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* in ISO mode, f^ is undefined after Rewrite

Browse Source 
git-svn-id: trunk@41429 -
This commit is contained in:
florian 2019-02-24 10:32:59 +00:00
parent 38a7f7c975
commit 74275a9173
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/text.inc
View File

@ -1858,6 +1858,8 @@ procedure fpc_Read_Text_Char_intern(var f : Text; out c: char); iocheck; [extern
function fpc_GetBuf_Text(var f : Text) : pchar; iocheck; compilerproc; function fpc_GetBuf_Text(var f : Text) : pchar; iocheck; compilerproc;
Begin Begin
Result:=@TextRec(f).Bufptr^[TextRec(f).BufEnd]; Result:=@TextRec(f).Bufptr^[TextRec(f).BufEnd];
if TextRec(f).mode=fmOutput then
exit;
If not CheckRead(f) then If not CheckRead(f) then
exit; exit;
If TextRec(f).BufPos>=TextRec(f).BufEnd Then If TextRec(f).BufPos>=TextRec(f).BufEnd Then