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

Question

Delphi 10.2(支持 Linux)有一个跨平台函数 AtomicExchange，相当于 Windows InterlokekdEchange。到目前为止一切顺利...

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

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

Answer 1

System.SysUtils.pas 中有此函数的隐藏实现:

function AtomicExchangeAdd(var Addend: Integer; Value: Integer): Integer;
begin
  Result := AtomicIncrement(Addend, Value) - Value;
end;

它利用了 AtomicIncrement 返回 Addend 的新值，而 InterlockedExchangeAdd 返回旧值这一事实。减去 Value 给出了预期的结果，显然是线程安全的。