Skip to content

Commit 61b72b7

Browse files
committed
Change definitions for "cint" and "cuint" in ctypes.inc
1 parent 7b231a0 commit 61b72b7

File tree

1 file changed

+5
-7
lines changed

1 file changed

+5
-7
lines changed

units/ctypes.inc

Lines changed: 5 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -28,10 +28,6 @@ type
2828
cbool = LongBool;
2929
{$EXTERNALSYM cbool}
3030

31-
pcint = ^cint;
32-
cint = Integer;
33-
{$EXTERNALSYM cint}
34-
3531
pcint8 = ^cint8;
3632
cint8 = ShortInt;
3733
{$EXTERNALSYM cint8}
@@ -56,9 +52,6 @@ type
5652
cuint32 = LongWord;
5753
{$EXTERNALSYM cuint32}
5854

59-
cuint = LongWord;
60-
{$EXTERNALSYM cuint}
61-
6255
{$IFNDEF Has_Int64}
6356
pcint64 = ^cint64;
6457
cint64 = record
@@ -95,6 +88,9 @@ type
9588
cfloat = Single;
9689
{$EXTERNALSYM cfloat}
9790

91+
(* Based on: https://en.cppreference.com/w/c/language/arithmetic_types#Data_models *)
92+
cint = cint32;
93+
cuint = cuint32;
9894
{$IF DEFINED(CPU32) OR DEFINED(CPU32BITS)}
9995
clong = cint32;
10096
culong = cuint32;
@@ -107,6 +103,8 @@ type
107103
culong = cuint64;
108104
{$ENDIF}
109105
{$ENDIF}
106+
{$EXTERNALSYM cint}
107+
{$EXTERNALSYM cuint}
110108
{$EXTERNALSYM clong}
111109
{$EXTERNALSYM culong}
112110

0 commit comments

Comments
 (0)