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

Use correct defines for ALUSInt, fixes problems encountered in webassembly

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-06 14:10:27 +01:00
parent a2a513958f
commit ec7e917b1a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/systemh.inc
View File

@ -500,19 +500,19 @@ Type
TExitCode = Word; TExitCode = Word;
{$endif CPU16} {$endif CPU16}
{$if defined(CPUINT8)} {$if defined(CPU8)}
ALUSInt = ShortInt; ALUSInt = ShortInt;
ALUUInt = Byte; ALUUInt = Byte;
{$elseif defined(CPUINT16)} {$elseif defined(CPU16)}
ALUSInt = SmallInt; ALUSInt = SmallInt;
ALUUInt = Word; ALUUInt = Word;
{$elseif defined(CPUINT32)} {$elseif defined(CPU32)}
ALUSInt = Longint; ALUSInt = Longint;
ALUUInt = DWord; ALUUInt = DWord;
{$elseif defined(CPUINT64)} {$elseif defined(CPU64)}
ALUSInt = Int64; ALUSInt = Int64;
ALUUInt = QWord; ALUUInt = QWord;
{$endif defined(CPUINT64)} {$endif defined(CPU64)}
{ NativeInt and NativeUInt are Delphi compatibility types. Even though Delphi { NativeInt and NativeUInt are Delphi compatibility types. Even though Delphi
has IntPtr and UIntPtr, the Delphi documentation for NativeInt states that has IntPtr and UIntPtr, the Delphi documentation for NativeInt states that