Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2025-01

Fix compile error for armv6m target

2 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Michael Ring

There's a syntax error that is in trunk for a while now, here's the fix, can anybody of the dev's please apply this?

Michael

fpcsrc $ git diff rtl/arm/thumb.inc
diff --git a/rtl/arm/thumb.inc b/rtl/arm/thumb.inc index 85d948a1e1..c7a9273be1 100644
--- a/rtl/arm/thumb.inc
+++ b/rtl/arm/thumb.inc
@@ -99,7 +99,7 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
 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']; +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;

Reply by email