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

* correctly disable the Atomic*Lock functions for the fpc_atomic_cmp_xchg_*() helper fallback of the CPU size

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-16 23:13:36 +01:00
parent d33e7920a2
commit ae938e16a5
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/generic.inc
View File

@ -3560,13 +3560,13 @@ procedure AtomicLeaveLock; forward;
{$endif}
function fpc_atomic_cmp_xchg_8(var Target: shortint; NewValue: shortint; Comparand: shortint): shortint;compilerproc;
begin
{$ifdef FPC_SYSTEM_ATOMIC_8_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_8_NO_LOCK}
AtomicEnterLock;
{$endif FPC_SYSTEM_ATOMIC_8_NO_LOCK}
Result:=Target;
if Target=Comparand then
Target:=NewValue;
{$ifdef FPC_SYSTEM_ATOMIC_8_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_8_NO_LOCK}
AtomicLeaveLock;
{$endif FPC_SYSTEM_ATOMIC_8_NO_LOCK}
end;
@ -3581,13 +3581,13 @@ end;
{$endif}
function fpc_atomic_cmp_xchg_16(var Target: smallint; NewValue: smallint; Comparand: smallint): smallint;compilerproc;
begin
{$ifdef FPC_SYSTEM_ATOMIC_16_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_16_NO_LOCK}
AtomicEnterLock;
{$endif FPC_SYSTEM_ATOMIC_16_NO_LOCK}
Result:=Target;
if Target=Comparand then
Target:=NewValue;
{$ifdef FPC_SYSTEM_ATOMIC_16_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_16_NO_LOCK}
AtomicLeaveLock;
{$endif FPC_SYSTEM_ATOMIC_16_NO_LOCK}
end;
@ -3602,13 +3602,13 @@ end;
{$endif}
function fpc_atomic_cmp_xchg_32(var Target: longint; NewValue: longint; Comparand: longint): longint;compilerproc;
begin
{$ifdef FPC_SYSTEM_ATOMIC_32_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_32_NO_LOCK}
AtomicEnterLock;
{$endif FPC_SYSTEM_ATOMIC_32_NO_LOCK}
Result:=Target;
if Target=Comparand then
Target:=NewValue;
{$ifdef FPC_SYSTEM_ATOMIC_32_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_32_NO_LOCK}
AtomicLeaveLock;
{$endif FPC_SYSTEM_ATOMIC_32_NO_LOCK}
end;
@ -3623,13 +3623,13 @@ end;
{$endif}
function fpc_atomic_cmp_xchg_64(var Target: int64; NewValue: int64; Comparand: int64): int64;compilerproc;
begin
{$ifdef FPC_SYSTEM_ATOMIC_64_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_64_NO_LOCK}
AtomicEnterLock;
{$endif FPC_SYSTEM_ATOMIC_64_NO_LOCK}
Result:=Target;
if Target=Comparand then
Target:=NewValue;
{$ifdef FPC_SYSTEM_ATOMIC_64_NO_LOCK}
{$ifndef FPC_SYSTEM_ATOMIC_64_NO_LOCK}
AtomicLeaveLock;
{$endif FPC_SYSTEM_ATOMIC_64_NO_LOCK}
end;