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

* switch SPARC 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:23:30 +01:00
parent 60b8dd4276
commit 2e54ad65fb
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/sparc/sparc.inc
View File

@ -418,7 +418,17 @@ asm
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_DEC_32}
function fpc_atomic_dec_32 (var Target: longint) : longint; assembler;
{$endif VER3_2}
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
@ -464,7 +474,12 @@ asm
stb %g0,[%g1]
end;
{$ifdef VER3_2}
function InterLockedIncrement (var Target: longint) : longint; assembler;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_INC_32}
function fpc_atomic_inc_32 (var Target: longint) : longint; assembler;
{$endif VER3_2}
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
@ -511,7 +526,12 @@ asm
end;
{$ifdef VER3_2}
function InterLockedExchange (var Target: longint;Source : longint) : longint; assembler;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_XCHG_32}
function fpc_atomic_xchg_32 (var Target: longint;Source : longint) : longint; assembler;
{$endif VER3_2}
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
@ -556,7 +576,12 @@ asm
end;
{$ifdef VER3_2}
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; assembler;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_ADD_32}
function fpc_atomic_add_32 (var Target: longint;Value : longint) : longint; assembler;
{$endif VER3_2}
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is
@ -603,7 +628,12 @@ asm
end;
{$ifdef VER3_2}
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; assembler;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_XCHG_32}
function fpc_atomic_xchg_32 (var Target: longint; NewValue: longint; Comparand: longint) : longint; [public,alias:'FPC_ATOMIC_CMP_XCHG_32']; assembler;
{$endif VER3_2}
{$ifndef FPC_PIC}nostackframe;{$endif}
asm
{ usually, we shouldn't lock here so saving the stack frame for these extra intructions is