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

Fix compilation of rtl for mipsel-ps1 target

Browse Source
This commit is contained in:
Pierre Muller 2025-02-26 08:16:15 +00:00
parent 831a46eb2f
commit 610972b26c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/mips/mips.inc
View File

@ -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;