diff options
Diffstat (limited to 'UEngines.pas')
| -rw-r--r-- | UEngines.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/UEngines.pas b/UEngines.pas index 3db0c25..24eee1a 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -409,9 +409,9 @@ function TLocalTreeEngine.GetDirSize(const APath: string): Int64; memset(StatBuf, 0, sizeof(Tstat64)); if lstat64(Buf, StatBuf) = 0 then begin if __S_ISTYPE(StatBuf^.st_mode, __S_IFDIR) then begin - Inc(Result, InternalGetDirSize(APath + string(Buf))); + Result := Result + InternalGetDirSize(APath + string(Buf)); libc_chdir(PChar(APath)); - end else Inc(Result, StatBuf^.st_size); + end else Result := Result + StatBuf^.st_size; end; libc_free(StatBuf); end; @@ -599,7 +599,7 @@ begin Break; // We cannot ignore write errors end; - Inc(BytesDone, BytesRead); + BytesDone := BytesDone + BytesRead; if (@ProgressFunc <> nil) and (not ProgressFunc(Sender, BytesDone, nil)) then Break; end; |