diff options
Diffstat (limited to 'UEngines.pas')
| -rw-r--r-- | UEngines.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/UEngines.pas b/UEngines.pas index 8649a05..7a0ccad 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -556,7 +556,8 @@ end; function TLocalTreeEngine.CopyFileOut(const SourceFile, DestFile: string; Append: boolean; ProgressFunc: TEngineProgressFunc; Sender: Pointer; Error: PPGError): boolean; var fsrc, fdest: Longint; Buffer: Pointer; - BytesDone, BytesRead, BytesWritten, BytesRemaining: ssize_t; + BytesDone: Int64; + BytesRead, BytesWritten, BytesRemaining: ssize_t; begin Result := False; BytesDone := 0; |