This commit is contained in:
Pavel 2025-01-04 22:59:05 +03:00
parent f0ac9835f7
commit d996630f71
1 changed files with 6 additions and 2 deletions

View File

@ -233,10 +233,14 @@ begin
end;
}
{$IF defined(ALT_SRW1) or defined(ALT_SRW2)}
function RtlWaitOnAddress (addr,cmp:Pointer;size:QWORD;timeout:PLARGE_INTEGER):DWORD; stdcall; external 'ntdll';
procedure RtlWakeAddressAll (addr:Pointer); stdcall; external 'ntdll';
procedure RtlWakeAddressSingle(addr:Pointer); stdcall; external 'ntdll';
{$ENDIF}
{$IFDEF ALT_SRW1}
type
@ -344,7 +348,7 @@ begin
Result:=TRUE;
end else
begin
Result:=FALSE;
Exit(FALSE);
end;
until (System.InterlockedCompareExchange(u.l^,new.l,old.l) = old.l);
end;
@ -366,7 +370,7 @@ begin
Result:=TRUE;
end else
begin
Result:=FALSE;
Exit(FALSE);
end;
until (System.InterlockedCompareExchange(u.l^,new.l,old.l) = old.l);
end;