paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +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;
exit;
end;
If f.BufPos>=f.BufEnd Then
begin
FileFunc(f.InOutFunc)(f);
if (f.BufPos>=f.BufEnd) and
{ Flush if set }
(f.FlushFunc<>nil) then
FileFunc(f.FlushFunc)(f);
exit;
end;
if f.BufPos>=f.BufEnd Then
begin
FileFunc(f.InOutFunc)(f);
if (f.BufPos>=f.BufEnd) then
{ Flush if set }
begin
if (f.FlushFunc<>nil) then
FileFunc(f.FlushFunc)(f);
exit;
end;
end;
repeat
prev := f.BufPtr^[f.BufPos];
inc(f.BufPos);
@ -1062,7 +1064,10 @@ end;
{
$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
Revision 1.65 2000/01/20 20:19:37 florian