瀏覽代碼

* Fix bug #33197

git-svn-id: trunk@38302 -
michael 7 年之前
父節點
當前提交
347c89e527
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/paszlib/src/unzip.pas

+ 1 - 1
packages/paszlib/src/unzip.pas

@@ -1234,7 +1234,7 @@ begin
 
   pfile_in_zip_read_info^.stream.next_out := pbyte(buf);
 
-  pfile_in_zip_read_info^.stream.avail_out := integer(len);
+  pfile_in_zip_read_info^.stream.avail_out := len;
 
   if (len > pfile_in_zip_read_info^.rest_read_uncompressed) then
     pfile_in_zip_read_info^.stream.avail_out :=