From 7bf34513767bfd63a19fd7c420e8d825e50bf232 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 9 Nov 2024 22:18:20 +0100
Subject: Fix ssize_t data type size

---
 ULibc.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'ULibc.pas')

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;
-- 
cgit v1.2.3