paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 14:24:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add definitions of ALUSInt and ALUUInt types in java/jsystemh_types.inc

Browse Source
This commit is contained in:
Pierre Muller 2025-03-31 13:36:13 +00:00
parent b1151ef4ea
commit 282f4aa060
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/java/jsystemh_types.inc
View File

@ -365,6 +365,20 @@ Type
ValUInt = Word;
{$endif CPU16}
{$if defined(CPUINT8)}
ALUSInt = ShortInt;
ALUUInt = Byte;
{$elseif defined(CPUINT16)}
ALUSInt = SmallInt;
ALUUInt = Word;
{$elseif defined(CPUINT32)}
ALUSInt = Longint;
ALUUInt = DWord;
{$elseif defined(CPUINT64)}
ALUSInt = Int64;
ALUUInt = QWord;
{$endif defined(CPUINT64)}
{ NativeInt and NativeUInt are Delphi compatibility types. Even though Delphi
has IntPtr and UIntPtr, the Delphi documentation for NativeInt states that
'The size of NativeInt is equivalent to the size of the pointer on the