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

UPD: Speed up file copying and moving with verify (fixes #1000)

Browse source
This commit is contained in:
Alexander Koblov 2023-12-17 21:15:29 +03:00
commit 71d735b2df
1 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/filesources/filesystem/ufilesystemutil.pas
View file

@ -582,7 +582,9 @@ var
while bRetry do
begin
bRetry := False;
{$IF NOT DEFINED(LINUX)}
if FVerify then Flags := fmOpenSync;
{$ENDIF}
try
TargetFileStream.Free; // In case stream was created but 'while' loop run again
case Mode of
@ -760,22 +762,27 @@ begin
Exit;
{$IF DEFINED(LINUX)}
if not FVerify and (fpFStatFS(TargetFileStream.Handle, @Sbfs) = 0) then
if FVerify then
TargetFileStream.AutoSync:= True
else if (fpFStatFS(TargetFileStream.Handle, @Sbfs) = 0) then
begin
case UInt32(Sbfs.fstype) of
NFS_SUPER_MAGIC:
begin
TargetFileStream.AutoSync:= True;
if (fpFStat(TargetFileStream.Handle, Info) = 0) then
begin
if FCache.Device = QWord(Info.st_dev) then
TargetFileStream.DirtyLimit:= FCache.DirtyLimit
else
FCache.Device:= QWord(Info.st_dev);
end;
end;
end;
end;
if TargetFileStream.AutoSync then
begin
if (fpFStat(TargetFileStream.Handle, Info) = 0) then
begin
if FCache.Device = QWord(Info.st_dev) then
TargetFileStream.DirtyLimit:= FCache.DirtyLimit
else
FCache.Device:= QWord(Info.st_dev);
end;
end;
{$ENDIF}
while TotalBytesToRead > 0 do