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

* with all existing RTLs switched over to the atomic intrinsics, the define FPC_SYSTEM_INTERLOCKED_USE_INTRIN can be removed again

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-09 23:41:05 +01:00
parent 9b302983b0
commit e94d02a067
22 changed files with 1 additions and 103 deletions

5
rtl/aarch64/aarch64.inc
View File

@ -291,11 +291,6 @@ procedure inclocked(var l : int64);assembler;nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

6
rtl/amiga/m68k/m68kamiga.inc
View File

@ -22,10 +22,6 @@
{$DEFINE FPC_SYSTEM_HAS_INTERLOCKEDFUNCS}
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
{$else VER3_2}
@ -86,7 +82,7 @@ function fpc_atomic_add_32 (var Target: longint;Value : 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;
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
Forbid;

4
rtl/arm/arm.inc
View File

@ -763,10 +763,6 @@ end;
{$endif FPC_PIC}
{$endif}
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

5
rtl/arm/thumb.inc
View File

@ -65,11 +65,6 @@ Function Sptr : pointer;assembler;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
begin

4
rtl/arm/thumb2.inc
View File

@ -526,10 +526,6 @@ asm
end;
{$endif}
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

5
rtl/avr/avr.inc
View File

@ -128,11 +128,6 @@ Function Sptr : pointer;assembler;nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
{$else VER3_2}

5
rtl/i386/i386.inc
View File

@ -2523,11 +2523,6 @@ begin
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

4
rtl/i8086/i8086.inc
View File

@ -694,10 +694,6 @@ asm
{$endif FPC_X86_DATA_NEAR}
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: smallint) : smallint;nostackframe;assembler;
{$else VER3_2}

4
rtl/inc/generic.inc
View File

@ -3677,8 +3677,6 @@ begin
end;
{$endif}
{$if defined(FPC_SYSTEM_INTERLOCKED_USE_INTRIN)}
{$ifdef cpu16}
function InterlockedIncrement (var Target: smallint) : smallint;
begin
@ -3758,7 +3756,5 @@ begin
end;
{$endif cpu64}
{$endif FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$pop}
{$endif VER3_2}

5
rtl/loongarch64/loongarch64.inc
View File

@ -223,11 +223,6 @@ Function Sptr : pointer;assembler;nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

4
rtl/m68k/m68k.inc
View File

@ -482,10 +482,6 @@ asm
end;
{$ENDIF}
{$IFNDEF VER3_2}
{$DEFINE FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$ENDIF VER3_2}
{$IFDEF VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
{$ELSE VER3_2}

4
rtl/mips/mips.inc
View File

@ -489,10 +489,6 @@ begin
InterLockedIncrement(l);
end;
{$IFNDEF VER3_2}
{$DEFINE FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$ENDIF VER3_2}
{$IFDEF VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
{$ELSE VER3_2}

5
rtl/powerpc/powerpc.inc
View File

@ -1103,11 +1103,6 @@ asm
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

4
rtl/powerpc64/powerpc64.inc
View File

@ -626,10 +626,6 @@ asm
bne- .LIncLockedLoop
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

5
rtl/riscv32/riscv32.inc
View File

@ -44,11 +44,6 @@ Function Sptr : pointer;assembler;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
begin

5
rtl/riscv64/riscv64.inc
View File

@ -52,11 +52,6 @@ Function Sptr : pointer;assembler;nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

5
rtl/sparc/sparc.inc
View File

@ -418,11 +418,6 @@ asm
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler;
{$else VER3_2}

5
rtl/sparc64/sparc64.inc
View File

@ -353,11 +353,6 @@ asm
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;assembler;nostackframe;
{$else VER3_2}

5
rtl/wasm32/wasm32.inc
View File

@ -77,11 +77,6 @@ function Sptr : pointer; assembler; nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
{$else VER3_2}

5
rtl/x86_64/x86_64.inc
View File

@ -1417,11 +1417,6 @@ procedure inclocked(var l : int64);assembler; nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint; assembler; nostackframe;
{$else VER3_2}

5
rtl/xtensa/xtensa.inc
View File

@ -127,11 +127,6 @@ Function Sptr : pointer;assembler;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
begin

5
rtl/z80/z80.inc
View File

@ -158,11 +158,6 @@ Function Sptr : pointer;assembler;nostackframe;
end;
{$ifndef VER3_2}
{$define FPC_SYSTEM_INTERLOCKED_USE_INTRIN}
{$endif VER3_2}
{$ifdef VER3_2}
function InterLockedDecrement (var Target: longint) : longint;
{$else VER3_2}