Emulator-Archive/fpPS4
1
0
Fork 0
mirror of https://github.com/red-prig/fpPS4.git synced 2024-11-23 06:19:57 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix

Browse Source
This commit is contained in:
Pavel 2022-06-07 16:23:43 +03:00
parent c1e230cc5a
commit 23293839ea
1 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
sys/spinlock.pas
View File

@ -71,7 +71,8 @@ implementation
Uses
atomic,
sys_kernel;
sys_kernel,
sys_signal;
Procedure backoff_exp.Wait;
Var
@ -177,18 +178,20 @@ end;
function spin_trylock(var t:r_spin_lock):Boolean;
begin
Result:=True;
if spin_trylock(t._lock) then
begin
t.count:=0;
t.owner:=GetCurrentThreadId;
end else
if (t.owner=GetCurrentThreadId) then
begin
Inc(t.count);
end else
begin
Result:=False;
end;
_sig_lock;
if spin_trylock(t._lock) then
begin
t.count:=0;
t.owner:=GetCurrentThreadId;
end else
if (t.owner=GetCurrentThreadId) then
begin
Inc(t.count);
end else
begin
Result:=False;
end;
_sig_unlock;
end;
procedure spin_lock(var t:r_spin_lock);
@ -201,15 +204,16 @@ end;
procedure spin_unlock(var t:r_spin_lock);
begin
if (t.count<=1) then
begin
t.count:=0;
t.owner:=DWORD(-1);
spin_unlock(t._lock);
end else
begin
Dec(t.count);
end;
_sig_lock;
if (t.count=0) then
begin
t.owner:=DWORD(-1);
spin_unlock(t._lock);
end else
begin
Dec(t.count);
end;
_sig_unlock;
end;
//