paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:10:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ clone()

Browse Source
This commit is contained in:
peter 1999-03-29 16:03:10 +00:00
parent b549e55a00
commit 787b1b1dd2
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/linux/linux.pp
View File

@ -32,8 +32,16 @@ var
Process
********************}
const
{ cloning flags }
CSIGNAL = $000000ff; // signal mask to be sent at exit
CLONE_VM = $00000100; // set if VM shared between processes
CLONE_FS = $00000200; // set if fs info shared between processes
CLONE_FILES = $00000400; // set if open files shared between processes
CLONE_SIGHAND = $00000800; // set if signal handlers shared
CLONE_PID = $00001000; // set if pid shared
Const
{ For getting/setting priority }
Prio_Process = 0;
Prio_PGrp = 1;
@ -491,6 +499,7 @@ Procedure Execle(Todo:string;Ep:ppchar);
Procedure Execlp(Todo:string;Ep:ppchar);
Function Shell(const Command:String):Longint;
Function Fork:longint;
Function Clone(sp,flags:LongInt):LongInt;
Function WaitPid(Pid:longint;Status:pointer;Options:Integer):Longint;
Procedure Nice(N:integer);
Function GetPriority(Which,Who:Integer):integer;
@ -733,6 +742,16 @@ begin
End;
Function Clone(sp,flags:LongInt):LongInt;
var
regs : SysCallRegs;
begin
regs.reg2:=sp;
regs.reg3:=flags;
Clone:=SysCall(SysCall_nr_clone, regs);
LinuxError:=Errno;
end;
Procedure Execve(path:pathstr;args:ppchar;ep:ppchar);
{
@ -3521,7 +3540,10 @@ End.
{
$Log$
Revision 1.33 1999-03-11 12:02:03 peter
Revision 1.34 1999-03-29 16:03:10 peter
+ clone()
Revision 1.33 1999/03/11 12:02:03 peter
* s_is<x> functions have now word para instead of integer
Revision 1.32 1999/02/22 12:50:53 peter