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

* Better fix for atomic operations on wasm

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-07 14:33:56 +01:00
parent 6c7d2f6bac
commit 3f0593b554
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fpcdefs.inc
View File

@ -437,7 +437,7 @@
{$ifdef wasm32}
{$define wasm}
{$define cpu32bit}
{$define cpu64bitalu}
{$define cpu32bitalu}
{$define cpu32bitaddr}
{$define cpuhighleveltarget}
{$define cpurox}

2
compiler/ncginl.pas
View File

@ -632,7 +632,7 @@ implementation
location_reset(location,LOC_VOID,OS_NO);
{$ifndef cpu64bitalu}
{$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
if (def_cgsize(left.resultdef) in [OS_64,OS_S64]) and (left.location.loc in [LOC_REGISTER,LOC_CREGISTER,LOC_REFERENCE,LOC_CREFERENCE]) then
cg64.a_op64_loc(current_asmdata.CurrAsmList,negnotop[inlinenumber],def_cgsize(left.resultdef),left.location)
else

10
rtl/inc/systemh.inc
View File

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