2
0
Эх сурвалжийг харах

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

Sven/Sarah Barth 9 сар өмнө
parent
commit
e94d02a067

+ 0 - 5
rtl/aarch64/aarch64.inc

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

+ 1 - 5
rtl/amiga/m68k/m68kamiga.inc

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

+ 0 - 4
rtl/arm/arm.inc

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

+ 0 - 5
rtl/arm/thumb.inc

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

+ 0 - 4
rtl/arm/thumb2.inc

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

+ 0 - 5
rtl/avr/avr.inc

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

+ 0 - 5
rtl/i386/i386.inc

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

+ 0 - 4
rtl/i8086/i8086.inc

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

+ 0 - 4
rtl/inc/generic.inc

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

+ 0 - 5
rtl/loongarch64/loongarch64.inc

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

+ 0 - 4
rtl/m68k/m68k.inc

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

+ 0 - 4
rtl/mips/mips.inc

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

+ 0 - 5
rtl/powerpc/powerpc.inc

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

+ 0 - 4
rtl/powerpc64/powerpc64.inc

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

+ 0 - 5
rtl/riscv32/riscv32.inc

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

+ 0 - 5
rtl/riscv64/riscv64.inc

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

+ 0 - 5
rtl/sparc/sparc.inc

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

+ 0 - 5
rtl/sparc64/sparc64.inc

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

+ 0 - 5
rtl/wasm32/wasm32.inc

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

+ 0 - 5
rtl/x86_64/x86_64.inc

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

+ 0 - 5
rtl/xtensa/xtensa.inc

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

+ 0 - 5
rtl/z80/z80.inc

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