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

* Fix compilation when using threading

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-23 14:48:57 +01:00
parent 9b2b1c12ff
commit 925091d0d1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/wasm32/wasm32.inc
View File

@ -150,7 +150,7 @@ function fpc_atomic_cmp_xchg_32 (var Target: longint; NewValue: longint; Compara
function fpc_atomic_cmp_xchg_64 (var Target: Int64; NewValue: Int64; Comparand: Int64) : Int64; [public,alias:'FPC_ATOMIC_CMP_XCHG_64'];
begin
{$ifdef FPC_WASM_THREADS}
Result:=Int64(fpc_wasm32_i64_atomic_rmw_cmpxchg_u(@Target,QWord(Comparand}),LongWord(NewValue)));
Result:=Int64(fpc_wasm32_i64_atomic_rmw_cmpxchg_u(@Target,QWord(Comparand),QWord(NewValue)));
{$else FPC_WASM_THREADS}
Result:=Target;
if Target=Comparand then