فهرست منبع

* Fix compilation when using threading

Michaël Van Canneyt 8 ماه پیش
والد
کامیت
925091d0d1
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  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'];
 function fpc_atomic_cmp_xchg_64 (var Target: Int64; NewValue: Int64; Comparand: Int64) : Int64; [public,alias:'FPC_ATOMIC_CMP_XCHG_64'];
   begin
   begin
 {$ifdef FPC_WASM_THREADS}
 {$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}
 {$else FPC_WASM_THREADS}
     Result:=Target;
     Result:=Target;
     if Target=Comparand then
     if Target=Comparand then