Fix ssize_t data type size

2 files changed, 12 insertions, 3 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;
diff --git a/ULibc.pas b/ULibc.pas
index 3b187be..3c2a615 100644
--- a/ULibc.pas
+++ b/ULibc.pas
@@ -51,9 +51,17 @@ type
 {$ENDIF}
 
 
+{$IFDEF CPU64}
+    size_t   = QWORD;
+    ssize_t  = Int64;
+    clock_t  = QWORD;
+{$ELSE}
+    size_t   = Cardinal;
+    ssize_t  = LongInt;
+    clock_t  = Cardinal;
+{$ENDIF}
+
    sig_atomic_t = Longint;
-   size_t = Cardinal;
-   ssize_t = Longint;
    error_t = Integer;
    __mode_t = DWORD;
    __dev_t = QWORD;