paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 10:30:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented InterlockedIncrement, InterlockedDecrement, InterlockedExchange,

Browse Source 
InterlockedCompareExchange and InterlockedExchangeAdd for WebAssembly in a
  thread safe way, using the thread and atomics extension, when the RTL is
  compiled with -dFPC_WASM_THREADS
This commit is contained in:
Nikolay Nikolov 2022-05-22 06:34:10 +03:00
parent ccc843f983
commit 47c271dcd0
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
rtl/wasm32/wasm32.inc
View File

@ -73,71 +73,119 @@ function Sptr : pointer;
function InterLockedDecrement (var Target: longint) : longint;
begin
{$ifdef FPC_WASM_THREADS}
{$push}{$R-,Q-}
Result:=fpc_wasm32_i32_atomic_rmw_sub(@Target,1)-1;
{$pop}
{$else FPC_WASM_THREADS}
dec(Target);
Result:=Target;
{$endif FPC_WASM_THREADS}
end;
function InterLockedIncrement (var Target: longint) : longint;
begin
{$ifdef FPC_WASM_THREADS}
{$push}{$R-,Q-}
Result:=fpc_wasm32_i32_atomic_rmw_add(@Target,1)+1;
{$pop}
{$else FPC_WASM_THREADS}
inc(Target);
Result:=Target;
{$endif FPC_WASM_THREADS}
end;
function InterLockedExchange (var Target: longint;Source : longint) : longint;
begin
{$ifdef FPC_WASM_THREADS}
Result:=LongInt(fpc_wasm32_i32_atomic_rmw_xchg(@Target,LongWord(Source)));
{$else FPC_WASM_THREADS}
Result:=Target;
Target:=Source;
{$endif FPC_WASM_THREADS}
end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
begin
{$ifdef FPC_WASM_THREADS}
Result:=LongInt(fpc_wasm32_i32_atomic_rmw_cmpxchg_u(@Target,LongWord(Comperand),LongWord(NewValue)));
{$else FPC_WASM_THREADS}
Result:=Target;
if Target=Comperand then
Target:=NewValue;
{$endif FPC_WASM_THREADS}
end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
begin
{$ifdef FPC_WASM_THREADS}
Result:=LongInt(fpc_wasm32_i32_atomic_rmw_add(@Target,LongWord(Source)));
{$else FPC_WASM_THREADS}
Result:=Target;
inc(Target,Source);
{$endif FPC_WASM_THREADS}
end;
function InterLockedDecrement (var Target: smallint) : smallint;
begin
{$ifdef FPC_WASM_THREADS}
{$push}{$R-,Q-}
Result:=smallint(fpc_wasm32_i32_atomic_rmw16_sub_u(@Target,1)-1);
{$pop}
{$else FPC_WASM_THREADS}
dec(Target);
Result:=Target;
{$endif FPC_WASM_THREADS}
end;
function InterLockedIncrement (var Target: smallint) : smallint;
begin
{$ifdef FPC_WASM_THREADS}
{$push}{$R-,Q-}
Result:=smallint(fpc_wasm32_i32_atomic_rmw16_add_u(@Target,1)+1);
{$pop}
{$else FPC_WASM_THREADS}
inc(Target);
Result:=Target;
{$endif FPC_WASM_THREADS}
end;
function InterLockedExchange (var Target: smallint;Source : smallint) : smallint;
begin
{$ifdef FPC_WASM_THREADS}
Result:=SmallInt(fpc_wasm32_i32_atomic_rmw16_xchg_u(@Target,Word(Source)));
{$else FPC_WASM_THREADS}
Result:=Target;
Target:=Source;
{$endif FPC_WASM_THREADS}
end;
function InterlockedCompareExchange(var Target: smallint; NewValue: smallint; Comperand: smallint): smallint;
begin
{$ifdef FPC_WASM_THREADS}
Result:=SmallInt(fpc_wasm32_i32_atomic_rmw16_cmpxchg_u(@Target,Word(Comperand),Word(NewValue)));
{$else FPC_WASM_THREADS}
Result:=Target;
if Target=Comperand then
Target:=NewValue;
{$endif FPC_WASM_THREADS}
end;
function InterLockedExchangeAdd (var Target: smallint;Source : smallint) : smallint;
begin
{$ifdef FPC_WASM_THREADS}
Result:=SmallInt(fpc_wasm32_i32_atomic_rmw16_add_u(@Target,Word(Source)));
{$else FPC_WASM_THREADS}
Result:=Target;
inc(Target,Source);
{$endif FPC_WASM_THREADS}
end;