mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Zip - slow gzip-file opening

Browse source 
(cherry picked from commit 8cd00f4a05)
This commit is contained in:
Alexander Koblov 2022-09-16 18:41:22 +03:00
commit bc5a9fda5e
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plugins/wcx/zip/src/fparchive/abzlibprc.pas
View file

@ -79,11 +79,17 @@ end;
function Inflate(aSource: TStream; aDest: TStream;
aHelper: TAbDeflateHelper): longint;
var
ACount: Int64;
AInflateStream: TInflateStream;
begin
AInflateStream:= TInflateStream.Create(aSource, True);
try
aHelper.NormalSize:= aDest.CopyFrom(AInflateStream, aHelper.NormalSize);
if aHelper.PartialSize > 0 then
ACount:= aHelper.PartialSize
else begin
ACount:= aHelper.NormalSize;
end;
aHelper.NormalSize:= aDest.CopyFrom(AInflateStream, ACount);
aHelper.CompressedSize:= AInflateStream.compressed_read;
Result:= LongInt(AInflateStream.FHash);
finally