paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +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

13
rtl/inc/text.inc
View File

@ -743,15 +743,17 @@ Begin
{ #13#10 = Dos), so if we've got #10, we can safely exit } { #13#10 = Dos), so if we've got #10, we can safely exit }
if prev = #10 then if prev = #10 then
exit; exit;
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
if (f.FlushFunc<>nil) then
FileFunc(f.FlushFunc)(f); FileFunc(f.FlushFunc)(f);
exit; exit;
end; end;
end;
if (prev=#13) then if (prev=#13) then
{ is there also a #10 after it? } { is there also a #10 after it? }
begin begin
@ -1064,7 +1066,10 @@ end;
{ {
$Log$ $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 * Jonas' fix for bug811
Revision 1.66 2000/01/23 12:22:37 florian Revision 1.66 2000/01/23 12:22:37 florian