paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 08:11:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r31982 into '.':

Browse Source 
U    rtl/objpas/classes/streams.inc
--- Recording mergeinfo for merge of r31982 into '.':
 U   .

# revisions: 31982

git-svn-id: branches/fixes_3_0@31985 -
This commit is contained in:
joost 2015-10-08 19:48:44 +00:00
parent 0f73688ecb
commit cde218d81c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/streams.inc
View File

@ -190,7 +190,7 @@ end;
begin
t:=0;
repeat
r:=Read(PByte(@Buffer)[t],Count);
r:=Read(PByte(@Buffer)[t],Count-t);
inc(t,r);
until (t=Count) or (r<=0);
if (t<Count) then