From 41c7e114b1f5558617aefa66cf6f2c6805a796ba Mon Sep 17 00:00:00 2001
From: SteveNew <steffen@nyeland.dk>
Date: Thu, 7 Nov 2024 18:37:42 +0100
Subject: [PATCH] Update ctypes.inc for Delphi-compatibility

Delphi has UIntPtr and IntPtr, not PtrUInt and PtrInt.
---
 units/ctypes.inc | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/units/ctypes.inc b/units/ctypes.inc
index c12699dc..cd0b26ff 100644
--- a/units/ctypes.inc
+++ b/units/ctypes.inc
@@ -161,10 +161,17 @@ type
     pointer: uintptr_t"
     Source: https://pubs.opengroup.org/onlinepubs/000095399/basedefs/stdint.h.html
     }
-  cuintptr_t = PtrUInt;
-  {$EXTERNALSYM cuintptr_t}
-  cintptr_t = PtrInt;
-  {$EXTERNALSYM cintptr_t}
+  {$IFNDEF FPC}
+    cuintptr_t = UIntPtr;
+    {$EXTERNALSYM cuintptr_t}
+    cintptr_t = IntPtr;
+    {$EXTERNALSYM cintptr_t}
+  {$ELSE}
+    cuintptr_t = PtrUInt;
+    {$EXTERNALSYM cuintptr_t}
+    cintptr_t = PtrInt;
+    {$EXTERNALSYM cintptr_t}
+  {$ENDIF}
 
   {$IFDEF WANT_CWCHAR_T}
     (* wchar_t is the "wide character" type of the C language.