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

- remove unnecessary defines

Browse Source
This commit is contained in:
Sven/Sarah Barth 2025-01-08 23:06:16 +01:00
parent 40725146cc
commit f29fe358ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/wasm32/wasm32.inc
View File

@ -150,10 +150,10 @@ 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({$ifdef VER3_2}Comperand{$else}Comparand{$endif}),LongWord(NewValue)));
Result:=Int64(fpc_wasm32_i64_atomic_rmw_cmpxchg_u(@Target,QWord(Comparand}),LongWord(NewValue)));
{$else FPC_WASM_THREADS}
Result:=Target;
if Target={$ifdef VER3_2}Comperand{$else}Comparand{$endif} then
if Target=Comparand then
Target:=NewValue;
{$endif FPC_WASM_THREADS}
end;