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