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

Shorten i386 and x86-64 atomic implementations to offset the LoC cost of the previous commit.

Browse Source
This commit is contained in:
Rika Ichinose 2024-12-17 01:42:10 +03:00 committed by Sven/Sarah Barth
parent bb43afd26d
commit 94a1f33f60
2 changed files with 19 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/i386/i386.inc
View File

@ -2719,24 +2719,20 @@ end;
{$ifdef VER3_2}
function InterlockedCompareExchange64(var Target: int64; NewValue: int64; Comperand: int64): int64; assembler;
function InterlockedCompareExchange64(var Target: int64; NewValue: int64; Comperand: int64): int64; assembler; nostackframe;
{$else VER3_2}
{$define FPC_SYSTEM_HAS_ATOMIC_CMP_XCHG_64}
function fpc_atomic_cmp_xchg_64 (var Target: int64; NewValue: int64; Comparand: int64) : int64; assembler;
function fpc_atomic_cmp_xchg_64 (var Target: int64; NewValue: int64; Comparand: int64) : int64; assembler; nostackframe;
{$endif VER3_2}
{ eax = Target, [esp + 12] = NewValue, [esp + 4] = Comparand. }
asm
pushl %ebx
pushl %edi
movl %eax,%edi
{$ifdef VER3_2}
movl Comperand+4,%edx
movl Comperand+0,%eax
{$else VER3_2}
movl Comparand+4,%edx
movl Comparand+0,%eax
{$endif}
movl NewValue+4,%ecx
movl NewValue+0,%ebx
movl 8+4(%esp),%eax
movl 8+8(%esp),%edx
movl 8+12(%esp),%ebx
movl 8+16(%esp),%ecx
lock cmpxchg8b (%edi)
pop %edi
pop %ebx

58
rtl/x86_64/x86_64.inc
View File

@ -1489,13 +1489,8 @@ function InterLockedExchange (var Target: longint;Source : longint) : longint; a
function fpc_atomic_xchg_32 (var Target: longint;Source : longint) : longint; assembler; nostackframe;
{$endif VER3_2}
asm
{$ifdef win64}
xchgl (%rcx),%edx
movl %edx,%eax
{$else win64}
xchgl (%rdi),%esi
movl %esi,%eax
{$endif win64}
xchgl ({$ifdef win64} %rcx {$else} %rdi {$endif}),Source
movl Source,%eax
end;
@ -1506,15 +1501,9 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
function fpc_atomic_add_32 (var Target: longint;Value : longint) : longint; assembler; nostackframe;
{$endif VER3_2}
asm
{$ifdef win64}
lock
xaddl %edx, (%rcx)
movl %edx,%eax
{$else win64}
lock
xaddl %esi, (%rdi)
movl %esi,%eax
{$endif win64}
xaddl {$ifdef VER3_2} Source {$else} Value {$endif},({$ifdef win64} %rcx {$else} %rdi {$endif})
movl {$ifdef VER3_2} Source {$else} Value {$endif},%eax
end;
@ -1525,15 +1514,9 @@ function InterLockedCompareExchange(var Target: longint; NewValue, Comperand : l
function fpc_atomic_cmp_xchg_32 (var Target: longint; NewValue, Comparand : longint) : longint; assembler; nostackframe;
{$endif VER3_2}
asm
{$ifdef win64}
movl %r8d,%eax
movl {$ifdef VER3_2} Comperand {$else} Comparand {$endif},%eax
lock
cmpxchgl %edx,(%rcx)
{$else win64}
movl %edx,%eax
lock
cmpxchgl %esi,(%rdi)
{$endif win64}
cmpxchgl NewValue,({$ifdef win64} %rcx {$else} %rdi {$endif})
end;
@ -1572,13 +1555,8 @@ function InterLockedExchange64 (var Target: int64;Source : int64) : int64; assem
function fpc_atomic_xchg_64 (var Target: int64;Source: int64) : int64; assembler; nostackframe;
{$endif VER3_2}
asm
{$ifdef win64}
xchgq (%rcx),%rdx
movq %rdx,%rax
{$else win64}
xchgq (%rdi),%rsi
movq %rsi,%rax
{$endif win64}
xchgq ({$ifdef win64} %rcx {$else} %rdi {$endif}),Source
movq Source,%rax
end;
@ -1589,15 +1567,9 @@ function InterLockedExchangeAdd64 (var Target: int64;Source : int64) : int64; as
function fpc_atomic_add_64 (var Target: int64;Value: int64) : int64; assembler; nostackframe;
{$endif VER3_2}
asm
{$ifdef win64}
lock
xaddq %rdx, (%rcx)
movq %rdx,%rax
{$else win64}
lock
xaddq %rsi, (%rdi)
movq %rsi,%rax
{$endif win64}
xaddq {$ifdef VER3_2} Source {$else} Value {$endif},({$ifdef win64} %rcx {$else} %rdi {$endif})
movq {$ifdef VER3_2} Source {$else} Value {$endif},%rax
end;
@ -1608,15 +1580,9 @@ function InterLockedCompareExchange64(var Target: int64; NewValue, Comperand : i
function fpc_atomic_cmp_xchg_64 (var Target: int64; NewValue, Comparand : int64) : int64; [public, alias:'FPC_ATOMIC_CMP_XCHG_64']; assembler; nostackframe;
{$endif VER3_2}
asm
{$ifdef win64}
movq %r8,%rax
movq {$ifdef VER3_2} Comperand {$else} Comparand {$endif},%rax
lock
cmpxchgq %rdx,(%rcx)
{$else win64}
movq %rdx,%rax
lock
cmpxchgq %rsi,(%rdi)
{$endif win64}
cmpxchgq NewValue,({$ifdef win64} %rcx {$else} %rdi {$endif})
end;