From 7bf34513767bfd63a19fd7c420e8d825e50bf232 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 9 Nov 2024 22:18:20 +0100 Subject: Fix ssize_t data type size --- UEngines.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'UEngines.pas') 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; -- cgit v1.2.3