paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +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;
{$endif CPU16}
{$if defined(CPUINT8)}
{$if defined(CPU8)}
ALUSInt = ShortInt;
ALUUInt = Byte;
{$elseif defined(CPUINT16)}
{$elseif defined(CPU16)}
ALUSInt = SmallInt;
ALUUInt = Word;
{$elseif defined(CPUINT32)}
{$elseif defined(CPU32)}
ALUSInt = Longint;
ALUUInt = DWord;
{$elseif defined(CPUINT64)}
{$elseif defined(CPU64)}
ALUSInt = Int64;
ALUUInt = QWord;
{$endif defined(CPUINT64)}
{$endif defined(CPU64)}
{ NativeInt and NativeUInt are Delphi compatibility types. Even though Delphi
has IntPtr and UIntPtr, the Delphi documentation for NativeInt states that