paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* committed the rest of my fix :)

Browse Source
This commit is contained in:
Jonas Maebe 2000-01-31 12:11:53 +00:00
parent 7a4ea522ae
commit e534908b2f
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

@ -743,15 +743,17 @@ Begin
{ #13#10 = Dos), so if we've got #10, we can safely exit }
if prev = #10 then
exit;
If f.BufPos>=f.BufEnd Then
begin
FileFunc(f.InOutFunc)(f);
if (f.BufPos>=f.BufEnd) and
if f.BufPos>=f.BufEnd Then
begin
FileFunc(f.InOutFunc)(f);
if (f.BufPos>=f.BufEnd) then
{ Flush if set }
(f.FlushFunc<>nil) then
FileFunc(f.FlushFunc)(f);
exit;
end;
begin
if (f.FlushFunc<>nil) then
FileFunc(f.FlushFunc)(f);
exit;
end;
end;
if (prev=#13) then
{ is there also a #10 after it? }
begin
@ -1064,7 +1066,10 @@ end;
{
$Log$
Revision 1.67 2000-01-31 10:15:43 pierre
Revision 1.68 2000-01-31 12:11:53 jonas
* committed the rest of my fix :)
Revision 1.67 2000/01/31 10:15:43 pierre
* Jonas' fix for bug811
Revision 1.66 2000/01/23 12:22:37 florian
@ -1153,4 +1158,4 @@ end;
* use external names
* removed all direct assembler modes
}
}