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

* apply patch by Michael Ring to fix compilation for ARM THUMB

Browse Source
This commit is contained in:
Sven/Sarah Barth 2025-01-09 07:39:18 +01:00
parent f29fe358ad
commit 5af16b3da3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/arm/thumb.inc
View File

@ -99,7 +99,7 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
{$else VER3_2} {$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_CMP_XCHG_32} {$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']; function fpc_atomic_cmp_xchg_32(var Target: longint; NewValue: longint; Comparand: longint): longint; [public,alias:'FPC_ATOMIC_CMP_XCHG_32'];
{$endif VER3_2} {$endif VER3_2}
begin begin
Result:=Target; Result:=Target;