From 610972b26cd6e8847e6fb31370fde0839ec81cc9 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Wed, 26 Feb 2025 08:16:15 +0000
Subject: [PATCH] Fix compilation of rtl for mipsel-ps1 target

---
 rtl/mips/mips.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/mips/mips.inc b/rtl/mips/mips.inc
index 3914b94234..1737fb402b 100644
--- a/rtl/mips/mips.inc
+++ b/rtl/mips/mips.inc
@@ -564,7 +564,7 @@ asm
 end;
 
 {$IFDEF VER3_2}
-function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
+function InterLockedExchangeAdd (var Target: longint;Value : longint) : longint;
 {$ELSE VER3_2}
 {$DEFINE FPC_SYSTEM_HAS_ATOMIC_ADD_32}
 function fpc_atomic_add_32 (var Target: longint;Value : longint) : longint;
@@ -572,7 +572,7 @@ function fpc_atomic_add_32 (var Target: longint;Value : longint) : longint;
 {$IFDEF CPUMIPS1}
 begin
     Result:=Target;
-    Target:= Target + Source;
+    Target:= Target + Value;
 {$ELSE}
 assembler; nostackframe;
 asm
@@ -588,7 +588,7 @@ asm
 end;
 
 {$IFDEF VER3_2}
-function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
+function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comparand: 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'];
@@ -596,7 +596,7 @@ function fpc_atomic_cmp_xchg_32 (var Target: longint; NewValue: longint; Compara
 {$IFDEF CPUMIPS1}
 begin
     Result:= Target;
-    if Target = Comperand then
+    if Target = Comparand then
       Target:= NewValue;
 {$ELSE}
 assembler; nostackframe;