ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix sema

This commit is contained in:
red-prig 2022-06-04 01:22:23 +03:00
parent 40ff63760a
commit 592ba98f41
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ps4_libkernel/ps4_sema.pas
View File

@ -6,7 +6,8 @@ interface
uses
windows,
sys_types;
sys_types,
spinlock;
const
SCE_KERNEL_SEMA_ATTR_TH_FIFO=$01;
@ -31,7 +32,7 @@ type
num:Integer;
value:Integer;
//vlock:pthread_mutex_t;
lock:Pointer;
lock:r_spin_lock;
name:array[0..31] of AnsiChar;
end;
@ -71,7 +72,6 @@ implementation
uses
atomic,
spinlock,
sys_kernel,
sys_signal,
sys_time,
@ -408,7 +408,7 @@ begin
//if (sv^.name='SuspendSemaphore') or
// (sv^.name='ResumeSemaphore') then
// Writeln('>sem_wait:',sv^.name,' count:',count,' value:',sv^.value);
//Writeln('>sem_wait:',sv^.name,' count:',count,' value:',sv^.value);
if (count>sv^.max) then
begin
@ -421,17 +421,23 @@ begin
semh :=sv^.s;
spin_unlock(sv^.lock);
if (cur_v>=0) then Exit(0);
if (cur_v>=0) then
begin
//Writeln('<sem_wait:',sv^.name,' count:',count,' value:',sv^.value);
Exit(0);
end;
//pthread_cleanup_push (clean_wait_sem, (void *) &arg);
//Writeln('!sem_wait:',sv^.name,' count:',count,' cur_v:',cur_v);
System.InterlockedIncrement(sv^.num);
Result:=do_sema_b_wait_intern(semh,pTimeout);
System.InterlockedDecrement(sv^.num);
//if (sv^.name='SuspendSemaphore') or
// (sv^.name='ResumeSemaphore') then
// Writeln('<sem_wait:',sv^.name,' count:',count,' value:',sv^.value);
//Writeln('<sem_wait:',sv^.name,' count:',count,' value:',sv^.value);
//pthread_cleanup_pop (ret);
if (Result=EINVAL) then Result:=0;
@ -462,14 +468,22 @@ begin
//if (sv^.name='SuspendSemaphore') or
// (sv^.name='ResumeSemaphore') then
// Writeln('>sem_post:',sv^.name,' count:',count,' value:',sv^.value);
//Writeln('>sem_post:',sv^.name,' count:',count,' value:',sv^.value);
if (count>sv^.max) or (sv^.value>(sv^.max-count)) then
if (count>sv^.max) {or (sv^.value>(sv^.max-count))} then
begin
//Writeln('EINVAL sem_post:',sv^.name,' count:',count,' value:',sv^.value);
spin_unlock(sv^.lock);
Exit(EINVAL);
end;
if (sv^.value>(sv^.max-count)) then
begin
//Writeln('EOVERFLOW sem_post:',sv^.name,' count:',count,' value:',sv^.value);
spin_unlock(sv^.lock);
Exit(EOVERFLOW);
end;
waiters_count:=-sv^.value;
Inc(sv^.value,count);