paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:50:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Jonas' fix for bug811

Browse Source
This commit is contained in:
pierre 2000-01-31 10:15:43 +00:00
parent f08db8e455
commit 38fb93fcfc
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/inc/text.inc
View File

@ -725,15 +725,17 @@ Begin
InOutRes:=104; InOutRes:=104;
exit; exit;
end; end;
If f.BufPos>=f.BufEnd Then if f.BufPos>=f.BufEnd Then
begin begin
FileFunc(f.InOutFunc)(f); FileFunc(f.InOutFunc)(f);
if (f.BufPos>=f.BufEnd) and if (f.BufPos>=f.BufEnd) then
{ Flush if set } { Flush if set }
(f.FlushFunc<>nil) then begin
FileFunc(f.FlushFunc)(f); if (f.FlushFunc<>nil) then
exit; FileFunc(f.FlushFunc)(f);
end; exit;
end;
end;
repeat repeat
prev := f.BufPtr^[f.BufPos]; prev := f.BufPtr^[f.BufPos];
inc(f.BufPos); inc(f.BufPos);
@ -1062,7 +1064,10 @@ end;
{ {
$Log$ $Log$
Revision 1.66 2000-01-23 12:22:37 florian Revision 1.67 2000-01-31 10:15:43 pierre
* Jonas' fix for bug811
Revision 1.66 2000/01/23 12:22:37 florian
* reading of 64 bit type implemented * reading of 64 bit type implemented
Revision 1.65 2000/01/20 20:19:37 florian Revision 1.65 2000/01/20 20:19:37 florian