Browse Source

* Fix compilation when using threading

Michaël Van Canneyt 6 months ago
parent
commit
925091d0d1
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/wasm32/wasm32.inc

+ 1 - 1
rtl/wasm32/wasm32.inc

@@ -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