瀏覽代碼

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

# revisions: 31982

git-svn-id: branches/fixes_3_0@31985 -

joost 9 年之前
父節點
當前提交
cde218d81c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/classes/streams.inc

+ 1 - 1
rtl/objpas/classes/streams.inc

@@ -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