mirror of
https://github.com/red-prig/fpPS4.git
synced 2024-11-26 16:10:25 +00:00
679 lines
16 KiB
ObjectPascal
679 lines
16 KiB
ObjectPascal
unit ps4_queue;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
windows,
|
|
Classes,
|
|
SysUtils,
|
|
hamt,
|
|
RWLock;
|
|
|
|
const
|
|
EVFILT_READ =(-1) ;
|
|
EVFILT_WRITE =(-2) ;
|
|
EVFILT_AIO =(-3) ; // attached to aio requests
|
|
EVFILT_VNODE =(-4) ; // attached to vnodes
|
|
EVFILT_PROC =(-5) ; // attached to struct proc
|
|
EVFILT_SIGNAL =(-6) ; // attached to struct proc
|
|
EVFILT_TIMER =(-7) ; // timers
|
|
EVFILT_FS =(-9) ; // filesystem events
|
|
EVFILT_LIO =(-10); // attached to lio requests
|
|
EVFILT_USER =(-11); // User events
|
|
EVFILT_POLLING =(-12);
|
|
EVFILT_DISPLAY =(-13);
|
|
EVFILT_GRAPHICS_CORE =(-14);
|
|
EVFILT_HRTIMER =(-15);
|
|
EVFILT_UVD_TRAP =(-16);
|
|
EVFILT_VCE_TRAP =(-17);
|
|
EVFILT_SDMA_TRAP =(-18);
|
|
EVFILT_REG_EV =(-19);
|
|
EVFILT_GPU_EXCEPTION =(-20);
|
|
EVFILT_GPU_SYSTEM_EXCEPTION=(-21);
|
|
EVFILT_GPU_DBGGC_EV =(-22);
|
|
EVFILT_SYSCOUNT =(22) ;
|
|
|
|
// actions
|
|
EV_ADD =$0001; // add event to kq (implies enable)
|
|
EV_DELETE =$0002; // delete event from kq
|
|
EV_ENABLE =$0004; // enable event
|
|
EV_DISABLE =$0008; // disable event (not reported)
|
|
|
|
// flags
|
|
EV_ONESHOT =$0010; // only report one occurrence
|
|
EV_CLEAR =$0020; // clear event state after reporting
|
|
EV_RECEIPT =$0040; // force EV_ERROR on success, data=0
|
|
EV_DISPATCH =$0080; // disable event after reporting
|
|
|
|
EV_SYSFLAGS =$F000; // reserved by system
|
|
EV_FLAG1 =$2000; // filter-specific flag
|
|
|
|
// returned values
|
|
EV_EOF =$8000; // EOF detected
|
|
EV_ERROR =$4000; // error, data contains errno
|
|
|
|
NOTE_DELETE =$0001; // vnode was removed
|
|
NOTE_WRITE =$0002; // data contents changed
|
|
NOTE_EXTEND =$0004; // size increased
|
|
NOTE_ATTRIB =$0008; // attributes changed
|
|
NOTE_LINK =$0010; // link count changed
|
|
NOTE_RENAME =$0020; // vnode was renamed
|
|
NOTE_REVOKE =$0040; // vnode access was revoked
|
|
|
|
SCE_KERNEL_EVFILT_TIMER =EVFILT_TIMER ;
|
|
SCE_KERNEL_EVFILT_READ =EVFILT_READ ;
|
|
SCE_KERNEL_EVFILT_WRITE =EVFILT_WRITE ;
|
|
SCE_KERNEL_EVFILT_USER =EVFILT_USER ;
|
|
SCE_KERNEL_EVFILT_FILE =EVFILT_VNODE ;
|
|
SCE_KERNEL_EVFILT_GNM =EVFILT_GRAPHICS_CORE;
|
|
SCE_KERNEL_EVFILT_VIDEO_OUT =EVFILT_DISPLAY ;
|
|
SCE_KERNEL_EVFILT_HRTIMER =EVFILT_HRTIMER ;
|
|
|
|
SCE_KERNEL_EVNOTE_DELETE =NOTE_DELETE ;
|
|
SCE_KERNEL_EVNOTE_WRITE =NOTE_WRITE ;
|
|
SCE_KERNEL_EVNOTE_EXTEND =NOTE_EXTEND ;
|
|
SCE_KERNEL_EVNOTE_ATTRIB =NOTE_ATTRIB ;
|
|
SCE_KERNEL_EVNOTE_RENAME =NOTE_RENAME ;
|
|
SCE_KERNEL_EVNOTE_REVOKE =NOTE_REVOKE ;
|
|
|
|
SCE_KERNEL_EVFLAG_EOF =EV_EOF ;
|
|
SCE_KERNEL_EVFLAG_ERROR =EV_ERROR ;
|
|
|
|
SCE_VIDEO_OUT_EVENT_FLIP =0; //Flip completion event
|
|
SCE_VIDEO_OUT_EVENT_VBLANK =1; //Vblank event
|
|
SCE_VIDEO_OUT_EVENT_PRE_VBLANK_START=2; //PreVblankStart event
|
|
|
|
type
|
|
PSceKernelEvent=^SceKernelEvent;
|
|
SceKernelEvent=packed record
|
|
ident:PtrUint; // identifier for this event
|
|
filter:SmallInt; // filter for event
|
|
flags:Word; // action flags for kqueue
|
|
fflags:DWORD; // filter flag value
|
|
data:Ptrint; // filter data value
|
|
udata:Pointer; // opaque user data identifier
|
|
end;
|
|
|
|
type
|
|
Phamt32locked=^Thamt32locked;
|
|
Thamt32locked=object
|
|
lock:TRWLock;
|
|
hamt:TSTUB_HAMT32;
|
|
Procedure Init;
|
|
Procedure LockRd;
|
|
Procedure LockWr;
|
|
Procedure Unlock;
|
|
end;
|
|
|
|
PSceKernelEqueue=^SceKernelEqueue;
|
|
SceKernelEqueue=^SceKernelEqueue_t;
|
|
SceKernelEqueue_t=record
|
|
valid:DWORD;
|
|
FRefs:DWORD;
|
|
lock:DWORD;
|
|
wait:DWORD;
|
|
hIOCP:Thandle;
|
|
FUserEvents:Thamt32locked;
|
|
name:array[0..31] of AnsiChar;
|
|
end;
|
|
|
|
PKEventNode=^TKEventNode;
|
|
TKEventNode=object
|
|
refs:DWORD;
|
|
lock:DWORD;
|
|
wait:DWORD;
|
|
eq:SceKernelEqueue;
|
|
ev:SceKernelEvent;
|
|
end;
|
|
|
|
function ps4_sceKernelCreateEqueue(outEq:PSceKernelEqueue;name:PChar):Integer; SysV_ABI_CDecl;
|
|
function ps4_sceKernelDeleteEqueue(eq:PSceKernelEqueue):Integer; SysV_ABI_CDecl;
|
|
|
|
function ps4_sceKernelWaitEqueue(
|
|
eq:SceKernelEqueue;
|
|
ev:PSceKernelEvent;
|
|
num:Integer;
|
|
out_num:PInteger;
|
|
timo:PDWORD):Integer; SysV_ABI_CDecl;
|
|
|
|
function ps4_sceKernelAddUserEvent(eq:SceKernelEqueue;id:Integer):Integer; SysV_ABI_CDecl;
|
|
function ps4_sceKernelAddUserEventEdge(eq:SceKernelEqueue;id:Integer):Integer; SysV_ABI_CDecl;
|
|
function ps4_sceKernelDeleteUserEvent(eq:SceKernelEqueue;id:Integer):Integer; SysV_ABI_CDecl;
|
|
|
|
function ps4_sceKernelTriggerUserEvent(eq:SceKernelEqueue;id:Integer;udata:Pointer):Integer; SysV_ABI_CDecl;
|
|
|
|
//
|
|
|
|
function ps4_sceKernelGetEventData(ev:PSceKernelEvent):Int64; SysV_ABI_CDecl;
|
|
function ps4_sceKernelGetEventError(ev:PSceKernelEvent):DWORD; SysV_ABI_CDecl;
|
|
function ps4_sceKernelGetEventFflags(ev:PSceKernelEvent):DWORD; SysV_ABI_CDecl;
|
|
function ps4_sceKernelGetEventFilter(ev:PSceKernelEvent):Integer; SysV_ABI_CDecl;
|
|
function ps4_sceKernelGetEventId(ev:PSceKernelEvent):QWORD; SysV_ABI_CDecl;
|
|
function ps4_sceKernelGetEventUserData(ev:PSceKernelEvent):Pointer; SysV_ABI_CDecl;
|
|
|
|
//
|
|
|
|
type
|
|
TKFetchEvent=function(node:PKEventNode;ev:PSceKernelEvent):Boolean;
|
|
TKAfterEvent=function(node:PKEventNode;data:Pointer):Boolean;
|
|
|
|
function _acqure_equeue(eq:SceKernelEqueue):SceKernelEqueue;
|
|
procedure _release_equeue(eq:SceKernelEqueue);
|
|
function _post_event(eq:SceKernelEqueue;node:PKEventNode;cb:TKFetchEvent):Boolean;
|
|
|
|
function _alloc_kevent_node(eq:SceKernelEqueue;size:qword):Pointer;
|
|
procedure _free_kevent_node(node:PKEventNode);
|
|
function _get_kevent_node(node:PKEventNode;ev:PSceKernelEvent):Boolean;
|
|
function _trigger_kevent_node(node:PKEventNode;after:TKAfterEvent;data:Pointer):Boolean;
|
|
|
|
implementation
|
|
|
|
uses
|
|
atomic,
|
|
spinlock,
|
|
sys_kernel,
|
|
sys_signal,
|
|
sys_time;
|
|
|
|
Procedure Thamt32locked.Init;
|
|
begin
|
|
FillChar(Self,SizeOf(Self),0);
|
|
rwlock_init(lock);
|
|
end;
|
|
|
|
Procedure Thamt32locked.LockRd;
|
|
begin
|
|
rwlock_rdlock(lock);
|
|
end;
|
|
|
|
Procedure Thamt32locked.LockWr;
|
|
begin
|
|
rwlock_wrlock(lock);
|
|
end;
|
|
|
|
Procedure Thamt32locked.Unlock;
|
|
begin
|
|
rwlock_unlock(lock);
|
|
end;
|
|
|
|
const
|
|
LIFE_EQ=$BAB1F00D;
|
|
DEAD_EQ=$DEADBEEF;
|
|
|
|
function _alloc_kevent_node(eq:SceKernelEqueue;size:qword):Pointer;
|
|
begin
|
|
eq:=_acqure_equeue(eq);
|
|
if (eq=nil) then Exit(Pointer(1));
|
|
Result:=SwAllocMem(size);
|
|
if (Result=nil) then
|
|
begin
|
|
_release_equeue(eq);
|
|
Exit;
|
|
end;
|
|
PKEventNode(Result)^.eq :=eq;
|
|
PKEventNode(Result)^.refs:=1;
|
|
end;
|
|
|
|
procedure _free_kevent_node(node:PKEventNode);
|
|
begin
|
|
if (node=nil) then Exit;
|
|
_release_equeue(XCHG(node^.eq,nil));
|
|
if System.InterlockedDecrement(node^.refs)=0 then
|
|
begin
|
|
SwFreeMem(node);
|
|
end;
|
|
end;
|
|
|
|
function _get_kevent_node(node:PKEventNode;ev:PSceKernelEvent):Boolean;
|
|
var
|
|
tmp:SceKernelEvent;
|
|
begin
|
|
Result:=false;
|
|
if (node=nil) or (ev=nil) then Exit;
|
|
tmp:=node^.ev;
|
|
if System.InterlockedDecrement(node^.wait)=0 then
|
|
begin
|
|
spin_unlock(node^.lock);
|
|
if System.InterlockedDecrement(node^.refs)=0 then
|
|
begin
|
|
SwFreeMem(node);
|
|
Exit;
|
|
end else
|
|
if ((node^.ev.flags and EV_CLEAR)=0) then //level trigger?
|
|
begin
|
|
_trigger_kevent_node(node,nil,nil);
|
|
end;
|
|
end;
|
|
ev^:=tmp;
|
|
Result:=True;
|
|
end;
|
|
|
|
function _trigger_kevent_node(node:PKEventNode;after:TKAfterEvent;data:Pointer):Boolean;
|
|
var
|
|
eq:SceKernelEqueue;
|
|
begin
|
|
Result:=False;
|
|
if (node=nil) then Exit;
|
|
eq:=node^.eq;
|
|
if (eq=nil) or (eq^.valid<>LIFE_EQ) then Exit;
|
|
if spin_trylock(node^.lock) then
|
|
begin
|
|
System.InterlockedIncrement(node^.refs);
|
|
if (after<>nil) then after(node,data);
|
|
Result:=_post_event(eq,node,@_get_kevent_node);
|
|
if not Result then
|
|
begin
|
|
spin_unlock(node^.lock);
|
|
if System.InterlockedDecrement(node^.refs)=0 then
|
|
begin
|
|
SwFreeMem(node);
|
|
Exit;
|
|
end;
|
|
end;
|
|
end else
|
|
begin
|
|
//Assert(false);
|
|
end;
|
|
end;
|
|
|
|
function _sceKernelCreateEqueue(outEq:PSceKernelEqueue;name:PChar):Integer;
|
|
var
|
|
hIOCP:Thandle;
|
|
data:SceKernelEqueue;
|
|
begin
|
|
//Writeln('sceKernelCreateEqueue:',name);
|
|
if (outEq=nil) then Exit(SCE_KERNEL_ERROR_EINVAL);
|
|
|
|
data:=SwAllocMem(SizeOf(SceKernelEqueue_t));
|
|
if (data=nil) then
|
|
begin
|
|
Exit(SCE_KERNEL_ERROR_ENOMEM);
|
|
end;
|
|
|
|
hIOCP:=CreateIoCompletionPort(INVALID_HANDLE_VALUE,0,0,High(Integer));
|
|
|
|
if (hIOCP=0) then
|
|
begin
|
|
Exit(SCE_KERNEL_ERROR_EMFILE);
|
|
end;
|
|
|
|
data^.valid:=LIFE_EQ;
|
|
data^.FRefs:=1;
|
|
data^.hIOCP:=hIOCP;
|
|
data^.FUserEvents.Init;
|
|
if (name<>nil) then MoveChar0(name^,data^.name,32);
|
|
|
|
outEq^:=data;
|
|
Result:=0;
|
|
end;
|
|
|
|
function ps4_sceKernelCreateEqueue(outEq:PSceKernelEqueue;name:PChar):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
_sig_lock;
|
|
Result:=_set_sce_errno(_sceKernelCreateEqueue(outEq,name));
|
|
_sig_unlock;
|
|
end;
|
|
|
|
function ps4_sceKernelDeleteEqueue(eq:PSceKernelEqueue):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=0;
|
|
end;
|
|
|
|
function _post_event(eq:SceKernelEqueue;node:PKEventNode;cb:TKFetchEvent):Boolean;
|
|
var
|
|
i,t,wait:DWORD;
|
|
begin
|
|
Result:=False;
|
|
if (eq=nil) then Exit;
|
|
if (eq^.valid<>LIFE_EQ) then Exit;
|
|
_sig_lock;
|
|
spin_lock(eq^.lock);
|
|
wait:=load_acq_rel(eq^.wait);
|
|
|
|
if (wait=0) then wait:=1;
|
|
|
|
//Writeln(GetCurrentThreadId,':>post_event:',eq^.name,' wait:',wait);
|
|
|
|
//one shoot or all ????????
|
|
i:=wait;
|
|
repeat
|
|
System.InterlockedIncrement(node^.wait);
|
|
Result:=PostQueuedCompletionStatus(eq^.hIOCP,1,ULONG_PTR(cb),Pointer(node));
|
|
if (not Result) then
|
|
begin
|
|
System.InterlockedDecrement(node^.wait);
|
|
spin_unlock(eq^.lock);
|
|
_sig_unlock;
|
|
Exit;
|
|
end;
|
|
Dec(i);
|
|
t:=load_acq_rel(eq^.wait);
|
|
if (t<i) then i:=t;
|
|
until (i=0);
|
|
|
|
spin_unlock(eq^.lock);
|
|
_sig_unlock;
|
|
end;
|
|
|
|
function _acqure_equeue(eq:SceKernelEqueue):SceKernelEqueue;
|
|
begin
|
|
Result:=nil;
|
|
if (eq=nil) then Exit;
|
|
if (eq^.valid<>LIFE_EQ) then Exit;
|
|
System.InterlockedIncrement(eq^.FRefs);
|
|
Result:=eq;
|
|
end;
|
|
|
|
procedure _release_equeue(eq:SceKernelEqueue);
|
|
begin
|
|
if (eq=nil) then Exit;
|
|
if System.InterlockedDecrement(eq^.FRefs)=0 then
|
|
begin
|
|
SwFreeMem(eq);
|
|
end;
|
|
end;
|
|
|
|
type
|
|
TOVERLAPPED_ENTRY=record
|
|
lpCompletionKey:ULONG_PTR;
|
|
lpOverlapped:POverlapped;
|
|
Internal:ULONG_PTR;
|
|
dwNumberOfBytesTransferred:DWORD;
|
|
end;
|
|
POVERLAPPED_ENTRY=^TOVERLAPPED_ENTRY;
|
|
|
|
function GetQueuedCompletionStatusEx(CompletionPort:THandle;
|
|
lpCompletionPortEntries:POVERLAPPED_ENTRY;
|
|
ulCount:ULONG;
|
|
var ulNumEntriesRemoved:ULONG;
|
|
dwMilliseconds:DWORD;
|
|
fAlertable:BOOL):BOOL; stdcall; external kernel32;
|
|
|
|
function _sceKernelWaitEqueue(
|
|
eq:SceKernelEqueue;
|
|
ev:PSceKernelEvent;
|
|
num:Integer;
|
|
out_num:PInteger;
|
|
timo:PDWORD):Integer;
|
|
Var
|
|
QTIME:DWORD;
|
|
LTIME:DWORD;
|
|
OE:array[0..15] of TOVERLAPPED_ENTRY;
|
|
i,ulNum,olNum:ULONG;
|
|
CTXProc:TKFetchEvent;
|
|
err:DWORD;
|
|
Q:Boolean;
|
|
begin
|
|
if (eq=nil) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
if (eq^.valid<>LIFE_EQ) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
if (ev=nil) then Exit(SCE_KERNEL_ERROR_EFAULT);
|
|
if (num<1) then Exit(SCE_KERNEL_ERROR_EINVAL);
|
|
|
|
//Writeln('>sceKernelWaitEqueue:',eq^.name);
|
|
|
|
if (timo<>nil) then
|
|
begin
|
|
//LTIME:=dwMilliSecs(timo^);
|
|
LTIME:=_usec2msec(timo^);
|
|
end else
|
|
begin
|
|
LTIME:=INFINITE;
|
|
end;
|
|
|
|
if (num>16) then num:=16;
|
|
|
|
Result:=0;
|
|
out_num^:=0;
|
|
FillChar(OE,SizeOf(OE),0);
|
|
CTXProc:=nil;
|
|
Repeat
|
|
ulNum:=0;
|
|
|
|
if (LTIME<>INFINITE) then QTIME:=Windows.GetTickCount;
|
|
|
|
spin_lock(eq^.lock);
|
|
System.InterlockedIncrement(eq^.wait);
|
|
//Writeln(GetCurrentThreadId,':>sceKernelWaitEqueue:',eq^.name,':',eq^.wait);
|
|
spin_unlock(eq^.lock);
|
|
|
|
err:=0;
|
|
Q:=GetQueuedCompletionStatusEX(eq^.hIOCP,@OE,num,ulNum,LTIME,True);
|
|
|
|
//spin_lock(eq^.lock);
|
|
System.InterlockedDecrement(eq^.wait);
|
|
//Writeln(GetCurrentThreadId,':<sceKernelWaitEqueue:',eq^.name,':',eq^.wait);
|
|
//spin_unlock(eq^.lock);
|
|
|
|
if not Q then
|
|
begin
|
|
err:=GetLastError;
|
|
end;
|
|
|
|
if (LTIME<>INFINITE) then
|
|
begin
|
|
QTIME:=Windows.GetTickCount-QTIME;
|
|
if (QTIME>LTIME) then
|
|
LTIME:=0
|
|
else
|
|
LTIME:=LTIME-QTIME;
|
|
end;
|
|
if not Q then
|
|
begin
|
|
Case err of
|
|
ERROR_INVALID_PARAMETER,
|
|
ERROR_INVALID_HANDLE :Exit(SCE_KERNEL_ERROR_EBADF);
|
|
WAIT_TIMEOUT :Exit(SCE_KERNEL_ERROR_ETIMEDOUT);
|
|
end;
|
|
end;
|
|
if (ulNum<>0) then
|
|
begin
|
|
olNum:=0;
|
|
For i:=0 to ulNum-1 do
|
|
begin
|
|
CTXProc:=TKFetchEvent(OE[i].lpCompletionKey);
|
|
if Assigned(CTXProc) then
|
|
begin
|
|
if CTXProc(PKEventNode(OE[i].lpOverlapped),@ev[olNum]) then
|
|
begin
|
|
Inc(olNum);
|
|
end;
|
|
end else
|
|
begin
|
|
Assert(false);
|
|
end;
|
|
end;
|
|
if (olNum<>0) then
|
|
begin
|
|
out_num^:=olNum;
|
|
//Sleep(100);
|
|
//Writeln('<sceKernelWaitEqueue:',eq^.name,':',olNum);
|
|
Exit(0);
|
|
end;
|
|
//Assert(false);
|
|
end;
|
|
Until false;
|
|
end;
|
|
|
|
function ps4_sceKernelWaitEqueue(
|
|
eq:SceKernelEqueue;
|
|
ev:PSceKernelEvent;
|
|
num:Integer;
|
|
out_num:PInteger;
|
|
timo:PDWORD):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
_sig_lock;
|
|
Result:=_set_sce_errno(_sceKernelWaitEqueue(eq,ev,num,out_num,timo));
|
|
_sig_unlock;
|
|
end;
|
|
|
|
function _sceKernelAddUserEvent(eq:SceKernelEqueue;id,flags:Integer):Integer;
|
|
var
|
|
P:PPointer;
|
|
node:PKEventNode;
|
|
begin
|
|
if (eq=nil) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
if (eq^.valid<>LIFE_EQ) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
|
|
eq^.FUserEvents.LockWr;
|
|
|
|
P:=HAMT_search32(@eq^.FUserEvents.hamt,id);
|
|
if (P<>nil) then
|
|
begin
|
|
node:=P^;
|
|
node^.ev.flags:=flags; //update
|
|
end else
|
|
begin
|
|
node:=_alloc_kevent_node(eq,SizeOf(TKEventNode));
|
|
if (node=nil) or (node=Pointer(1)) then
|
|
begin
|
|
eq^.FUserEvents.Unlock;
|
|
Exit(SCE_KERNEL_ERROR_ENOMEM);
|
|
end;
|
|
|
|
node^.ev.ident :=id;
|
|
node^.ev.flags :=flags;
|
|
node^.ev.filter:=SCE_KERNEL_EVFILT_USER;
|
|
|
|
HAMT_insert32(@eq^.FUserEvents.hamt,id,node);
|
|
end;
|
|
|
|
eq^.FUserEvents.Unlock;
|
|
|
|
Result:=0;
|
|
end;
|
|
|
|
function _sceKernelDeleteUserEvent(eq:SceKernelEqueue;id:Integer):Integer;
|
|
var
|
|
P:PPointer;
|
|
node:PKEventNode;
|
|
begin
|
|
if (eq=nil) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
if (eq^.valid<>LIFE_EQ) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
|
|
eq^.FUserEvents.LockWr;
|
|
|
|
P:=HAMT_search32(@eq^.FUserEvents.hamt,id);
|
|
if (P<>nil) then
|
|
begin
|
|
Result:=0;
|
|
node:=P^;
|
|
HAMT_delete32(@eq^.FUserEvents.hamt,id,nil);
|
|
_free_kevent_node(node);
|
|
end else
|
|
begin
|
|
Result:=SCE_KERNEL_ERROR_ENOENT;
|
|
end;
|
|
|
|
eq^.FUserEvents.Unlock;
|
|
end;
|
|
|
|
function ps4_sceKernelAddUserEvent(eq:SceKernelEqueue;id:Integer):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
_sig_lock;
|
|
//Writeln('sceKernelAddUserEvent:',id);
|
|
Result:=_set_sce_errno(_sceKernelAddUserEvent(eq,id,0));
|
|
_sig_unlock;
|
|
end;
|
|
|
|
function ps4_sceKernelAddUserEventEdge(eq:SceKernelEqueue;id:Integer):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
_sig_lock;
|
|
//Writeln('sceKernelAddUserEventEdge:',id);
|
|
Result:=_set_sce_errno(_sceKernelAddUserEvent(eq,id,EV_CLEAR));
|
|
_sig_unlock;
|
|
end;
|
|
|
|
function ps4_sceKernelDeleteUserEvent(eq:SceKernelEqueue;id:Integer):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
_sig_lock;
|
|
//Writeln('sceKernelDeleteUserEvent:',id);
|
|
Result:=_set_sce_errno(_sceKernelDeleteUserEvent(eq,id));
|
|
_sig_unlock;
|
|
end;
|
|
|
|
function _sceKernelTriggerUserEvent(eq:SceKernelEqueue;id:Integer;udata:Pointer):Integer;
|
|
var
|
|
P:PPointer;
|
|
node:PKEventNode;
|
|
begin
|
|
if (eq=nil) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
if (eq^.valid<>LIFE_EQ) then Exit(SCE_KERNEL_ERROR_EBADF);
|
|
|
|
eq^.FUserEvents.LockRd;
|
|
|
|
P:=HAMT_search32(@eq^.FUserEvents.hamt,id);
|
|
if (P<>nil) then
|
|
begin
|
|
node:=P^;
|
|
|
|
node^.ev.udata:=udata; //update
|
|
|
|
if (node^.wait=0) then //do not re trigger?
|
|
begin
|
|
_trigger_kevent_node(node,nil,nil);
|
|
end;
|
|
|
|
end else
|
|
begin
|
|
eq^.FUserEvents.Unlock;
|
|
Exit(SCE_KERNEL_ERROR_ENOENT);
|
|
end;
|
|
|
|
eq^.FUserEvents.Unlock;
|
|
|
|
Result:=0;
|
|
end;
|
|
|
|
function ps4_sceKernelTriggerUserEvent(eq:SceKernelEqueue;id:Integer;udata:Pointer):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
_sig_lock;
|
|
Result:=_set_sce_errno(_sceKernelTriggerUserEvent(eq,id,udata));
|
|
_sig_unlock;
|
|
end;
|
|
|
|
///
|
|
|
|
function ps4_sceKernelGetEventData(ev:PSceKernelEvent):Int64; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=ev^.data;
|
|
end;
|
|
|
|
function ps4_sceKernelGetEventError(ev:PSceKernelEvent):DWORD; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=ev^.fflags;
|
|
if (Result<>0) then //px2sce
|
|
begin
|
|
Result:=Result+$80020000;
|
|
end;
|
|
end;
|
|
|
|
function ps4_sceKernelGetEventFflags(ev:PSceKernelEvent):DWORD; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=ev^.fflags;
|
|
end;
|
|
|
|
function ps4_sceKernelGetEventFilter(ev:PSceKernelEvent):Integer; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=ev^.filter;
|
|
end;
|
|
|
|
function ps4_sceKernelGetEventId(ev:PSceKernelEvent):QWORD; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=ev^.ident;
|
|
end;
|
|
|
|
function ps4_sceKernelGetEventUserData(ev:PSceKernelEvent):Pointer; SysV_ABI_CDecl;
|
|
begin
|
|
Result:=ev^.udata;
|
|
end;
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|