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

* Fix bug #28796

Browse Source 
git-svn-id: trunk@31982 -
This commit is contained in:
michael 2015-10-08 19:06:04 +00:00
parent 5cb2d10c9a
commit 2c24153736
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

@ -186,7 +186,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