Browse Source

Fix compilation of rtl for mipsel-ps1 target

Pierre Muller 5 months ago
parent
commit
610972b26c
1 changed files with 4 additions and 4 deletions
  1. 4 4
      rtl/mips/mips.inc

+ 4 - 4
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;