pony5551 / pnhttpsysserver Goto Github PK

我这运行出现了问题 delphixe10.1
function AtomicOr(var Dest: Integer; const AMask: Integer): Integer; inline;
var
I: Integer;
begin
repeat
Result := Dest;
I := Result or AMask;
until AtomicCmpExchange(Dest, I, Result) = Result;
end;

constructor TQSimpleLock.Create;
begin
inherited;
FFlags := 0;
end;

procedure TQSimpleLock.Enter;
begin
while (AtomicOr(FFlags, $01) and $01)<>0 do
begin
{$IFDEF UNICODE}
TThread.Yield;
{$ELSE}
SwitchToThread;
{$ENDIF}
end;
end;

提示
[dcc64 Error] lib.PnLocker.pas(87): E2441 Inline function declared in interface section must not use local symbol 'AtomicOr'