paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 01:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Line reader now reports a read line after a single #10 at the end of the

Browse Source 
current input buffer
This commit is contained in:
sg 2000-08-24 22:29:37 +00:00
parent 3b1b549c04
commit 5b3cee731f
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/inc/asyncio.pp
View File

@ -260,7 +260,7 @@ begin
CurBytesInBuffer := FBytesInBuffer; CurBytesInBuffer := FBytesInBuffer;
while i <= CurBytesInBuffer - 2 do while i <= CurBytesInBuffer - 1 do
begin begin
if (RealBuffer[i] = #13) or (RealBuffer[i] = #10) then if (RealBuffer[i] = #13) or (RealBuffer[i] = #10) then
begin begin
@ -269,7 +269,8 @@ begin
if LineLength > 0 then if LineLength > 0 then
Move(RealBuffer[LastEndOfLine], line[1], LineLength); Move(RealBuffer[LastEndOfLine], line[1], LineLength);
if (RealBuffer[i] = #13) and (RealBuffer[i + 1] = #10) then if (i < CurBytesInBuffer - 1) and (RealBuffer[i] = #13) and
(RealBuffer[i + 1] = #10) then
Inc(i); Inc(i);
LastEndOfLine := i + 1; LastEndOfLine := i + 1;
@ -512,7 +513,11 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:32:58 michael Revision 1.3 2000-08-24 22:29:37 sg
* Line reader now reports a read line after a single #10 at the end of the
current input buffer
Revision 1.2 2000/07/13 11:32:58 michael
+ removed logs + removed logs
} }