ADD: Support for dynamic linking first version that can be compiled u…

units/runtime/ctypes.inc

@@ -0,0 +1,203 @@
+// C data types
+
+{
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2013 Sam Lantinga <slouken@libsdl.org>
+
+  Pascal-Header-Conversion
+  Copyright (C) 2012-2020 Tim Blume aka End/EV1313
+
+  SDL2-for-Pascal
+  Copyright (C) 2020-2021 PGD Community
+
+  This file is part of the project above. It has solely the purpose
+  to map common C data types correctly by Pascal compilers.
+
+  FPC: Most C data types are found in the native ctypes unit.
+  Delphi + others: Relies on this file for C data type mapping.
+
+  These native C types should be strictly separated from
+  types defined by SDL which can be found in sdlstdinc.inc.
+}
+
+{$IFNDEF FPC}
+type
+  DWord = LongWord;
+
+  ppcbool = ^pcbool;
+  pcbool = ^cbool;
+  cbool = LongBool;
+  {$EXTERNALSYM cbool}
+
+  ppcint8 = ^pcint8;
+  pcint8 = ^cint8;
+  cint8 = ShortInt;
+  {$EXTERNALSYM cint8}
+
+  pcuint8 = ^cuint8;
+  cuint8 = Byte;
+  {$EXTERNALSYM cuint8}
+
+  ppcint16 = ^pcint16;
+  pcint16 = ^cint16;
+  cint16 = SmallInt;
+  {$EXTERNALSYM cint16}
+
+  ppcuint16 = ^pcuint16;
+  pcuint16 = ^cuint16;
+  cuint16 = Word;
+  {$EXTERNALSYM cuint16}
+
+  ppcushort = ^pcushort;
+  pcushort = ^cushort;
+  cushort = Word;
+  {$EXTERNALSYM cushort}
+
+  ppcint32 = ^pcint32;
+  pcint32 = ^cint32;
+  cint32 = LongInt;
+  {$EXTERNALSYM cint32}
+
+  ppcuint32 = ^pcuint32;
+  pcuint32 = ^cuint32;
+  cuint32 = LongWord;
+  {$EXTERNALSYM cuint32}
+
+  {$IFNDEF Has_Int64}
+     ppcint64 = ^pcint64;
+     pcint64 = ^cint64;
+     cint64 = record
+       hi: cuint32;
+       lo: cuint32;
+     end;
+    {$EXTERNALSYM cint64}
+
+    ppcuint64 = ^pcuint64;
+    pcuint64 = ^cuint64;
+    cuint64 = record
+      hi: cuint32;
+      lo: cuint32;
+    end;
+    {$EXTERNALSYM cuint64}
+  {$ELSE}
+    ppcint64 = ^pcint64;
+    pcint64 = ^cint64;
+    cint64 = Int64;
+    {$EXTERNALSYM cint64}
+
+    ppcuint64 = ^pcuint64;
+    pcuint64 = ^cuint64;
+    cuint64 = UInt64;
+    {$EXTERNALSYM cuint64}
+  {$ENDIF}
+
+  ppcsize_t = ^pcsize_t;
+  pcsize_t = ^csize_t;
+  {$IFNDEF WIN64}
+    csize_t = cuint32;
+  {$ELSE}
+    csize_t = cuint64;
+  {$ENDIF}
+  {$EXTERNALSYM csize_t}
+
+  ppcfloat = ^pcfloat;
+  pcfloat = ^cfloat;
+  cfloat = Single;
+  {$EXTERNALSYM cfloat}
+
+  ppcdouble = ^pcdouble;
+  pcdouble = ^cdouble;
+  cdouble = Double;
+  {$EXTERNALSYM cfloat}
+
+  ppcint = ^pcint;
+  pcint = ^cint;
+
+  ppcuint = ^pcuint;
+  pcuint = ^cuint;
+
+  ppclong = ^pclong;
+  pclong = ^clong;
+
+  ppculong = ^pculong;
+  pculong = ^culong;
+  {
+    Integer type sizes based on:
+    https://en.cppreference.com/w/c/language/arithmetic_types#Data_models
+  }
+  cint = cint32;
+  cuint = cuint32;
+  {$IF DEFINED(CPU32) OR DEFINED(CPU32BITS)}
+    clong = cint32;
+    culong = cuint32;
+  {$ELSE} // 64-bit
+    {$IFDEF MSWINDOWS}
+      clong = cint32;
+      culong = cuint32;
+    {$ELSE}
+      clong = cint64;
+      culong = cuint64;
+    {$ENDIF}
+  {$ENDIF}
+  {$EXTERNALSYM cint}
+  {$EXTERNALSYM cuint}
+  {$EXTERNALSYM clong}
+  {$EXTERNALSYM culong}
+
+{$ENDIF}
+
+{ Data types for all compilers }
+type
+  PPUInt8Array = ^PUInt8Array;
+  PUInt8Array = ^TUInt8Array;
+  TUInt8Array = array [0..MAXINT shr 1] of cuint8;
+
+  ppcuint8 = ^pcuint8;
+
+  { "The following type designates an unsigned integer type [or signed respectivly]
+    with the property that any valid pointer to void can be
+    converted to this type, then converted back to a pointer
+    to void, and the result will compare equal to the original
+    pointer: uintptr_t"
+    Source: https://pubs.opengroup.org/onlinepubs/000095399/basedefs/stdint.h.html
+    }
+  {$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.
+     * The size of this type is platform- and compiler-dependent.
+     *
+     * While FPC does have it's own "wide character" type, System.WideChar,
+     * that one is defined as always being 16-bits, so we can't re-use it here.
+     *
+     * When using FPC on Unices, the UnixType unit provides a wchar_t definition.
+     *
+     * On other systems/compiler combos, let's just go
+     * by what the CPP reference wiki claims, i.e:
+     * - wchar_t is 16-bits on Windows
+     * - wchar_t is 32-bits on Linux "and many other non-Windows systems"
+     *
+     * See: https://en.cppreference.com/w/cpp/language/types#Character_types
+     *)
+    {$IF DEFINED(FPC) AND DEFINED(UNIX)}
+      cwchar_t = UnixType.wchar_t;
+    {$ELSE}
+      {$IF DEFINED(WIN32) OR DEFINED(WIN64)}
+        cwchar_t = cuint16;
+      {$ELSE}
+        cwchar_t = cuint32;
+      {$ENDIF}
+    {$ENDIF}
+    {$EXTERNALSYM cwchar_t}
+    pcwchar_t = ^cwchar_t;
+  {$ENDIF}