linux - 使用Delphi 10.2的Linux的InterlockedExchangeAdd的等效项)

Delphi 10.2(支持Linux)具有跨平台功能AtomicExchange，它等效于Windows InterlocekdEchange。到现在为止还挺好...

我必须使用没有AtomicExchangeAdd等效项的InterlockedExchangeAdd来移植Win32代码。

我的问题是:为Linux编译时，可以使用什么来替换InterlockedExchangeAdd？

最佳答案

InterlockedExchangeAdd()“将原子值与Addend指向的值进行原子加法。结果存储在Addend指定的地址中。”
System.SyncObjs单元有一个 TInterlocked 类，该类重载了 Add() 方法来执行相同的操作:

class function Add(var Target: Integer; Increment: Integer): Integer; overload; static; inline;

class function Add(var Target: Int64; Increment: Int64): Int64; overload; static; inline;

区别在于InterlockedExchangeAdd()“返回由Addend指向的变量的初始值”，而TInterlocked.Add()“返回的是增量参数的值”。因此，如果使用返回值，则必须考虑该差异，例如:

function InterlockedExchangeAdd(var Addend: Integer; Value: Integer): Integer;
begin
  Result := TInterlocked.Add(Addend, Value) - Value;
end;