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

* switch RISC-V 32 RTL to provide atomic intrinsic helpers instead of Interlocked* functions

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-07 22:26:16 +01:00
parent 573b82c67f
commit 20d9ddf5ae
1 changed files with 21 additions and 8 deletions

29
rtl/riscv32/riscv32.inc
View File

@ -44,6 +44,12 @@ Function Sptr : pointer;assembler;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
begin
dec(Target);
@ -65,19 +71,26 @@ function InterLockedExchange (var Target: longint;Source : longint) : longint;
end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
begin
Result:=Target;
if Target=Comperand then
Target:=NewValue;
end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
begin
Result:=Target;
inc(Target,Source);
end;
{$endif}
{$ifdef VER3_2}
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_CMP_XCHG_32}
function fpc_atomic_cmp_xchg_32 (var Target: longint; NewValue: longint; Comparand: longint) : longint; [public,alias:'FPC_ATOMIC_CMP_XCHG_32'];
{$endif VER3_2}
begin
Result:=Target;
if Target={$ifdef VER3_2}Comperand{$else}Comparand{$endif} then
Target:=NewValue;
end;
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}