mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-19 15:42:38 +02:00
43 lines
942 B
PHP
43 lines
942 B
PHP
|
|
const
|
|
SCHED_OTHER = 0;
|
|
SCHED_FIFO = 1;
|
|
SCHED_RR = 2;
|
|
|
|
const
|
|
CSIGNAL = $000000ff;
|
|
CLONE_VM = $00000100;
|
|
CLONE_FS = $00000200;
|
|
CLONE_FILES = $00000400;
|
|
CLONE_SIGHAND = $00000800;
|
|
CLONE_PID = $00001000;
|
|
CLONE_PTRACE = $00002000;
|
|
CLONE_VFORK = $00004000;
|
|
|
|
type
|
|
Psched_param = ^sched_param;
|
|
sched_param = record
|
|
__sched_priority : longint;
|
|
end;
|
|
|
|
TCloneFunc = function(Arg: Pointer): Integer; cdecl; // For translation
|
|
|
|
|
|
function clone(__fn:tclonefunc; __child_stack:pointer; __flags:longint; __arg:pointer):longint;cdecl;external clib name 'clone';
|
|
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
Type
|
|
__sched_param = sched_param;
|
|
P__sched_param = ^__sched_param;
|
|
TSchedParam = __sched_param;
|
|
PSchedParam = ^TSchedParam;
|
|
|
|
TCloneProc = TCloneFunc;
|
|
|
|
|
|
|