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

--- Merging r49219 into '.':

Browse Source 
U    packages/fcl-base/src/streamex.pp
--- Recording mergeinfo for merge of r49219 into '.':
 U   .

# revisions: 49219
r49219 | marco | 2021-04-17 16:30:42 +0200 (Sat, 17 Apr 2021) | 1 line
Changed paths:
   M /trunk/packages/fcl-base/src/streamex.pp

* Apply fix from bug  from Andrea Mauri to update vpbyte after fillbuffer in a loop. The second instance of fillbuffer is safe, because it is at the procedure exit, and vpbyte is a local variable.

git-svn-id: branches/fixes_3_2@49243 -
This commit is contained in:
marco 2021-04-22 09:49:47 +00:00
parent acb59c7592
commit b29cd3117a
1 changed files with 1 additions and 0 deletions

1
packages/fcl-base/src/streamex.pp
View File

@ -432,6 +432,7 @@ begin
Move(FBuffer[VPosition], AString[Succ(VStrLength)], VLength);
end;
FillBuffer;
VPByte := @FBuffer[FBufferPosition];
VPosition := FBufferPosition;
end;
until (FBufferPosition = FBufferRead) or (VPByte^ in [10, 13]);