mirror of https://github.com/red-prig/fpPS4.git
35 lines
601 B
Plaintext
35 lines
601 B
Plaintext
unit vselinfo;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
{$CALLING SysV_ABI_CDecl}
|
|
|
|
interface
|
|
|
|
uses
|
|
mqueue,
|
|
kern_mtx;
|
|
|
|
type
|
|
{
|
|
* Used to maintain information about processes that wish to be
|
|
* notified when I/O becomes possible.
|
|
}
|
|
p_selinfo=^t_selinfo;
|
|
t_selinfo=packed record
|
|
si_tdlist:TAILQ_HEAD; { List of sleeping threads. }
|
|
//si_note:knlist; { kernel note list }
|
|
si_mtx:p_mtx; { Lock for tdlist. }
|
|
end;
|
|
|
|
function SEL_WAITING(si:p_selinfo):Boolean; inline;
|
|
|
|
implementation
|
|
|
|
function SEL_WAITING(si:p_selinfo):Boolean; inline;
|
|
begin
|
|
Result:=(not TAILQ_EMPTY(@si^.si_tdlist));
|
|
end;
|
|
|
|
end.
|
|
|