paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 20:33:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fpgetsid, Mantis

Browse Source 
git-svn-id: trunk@19178 -
This commit is contained in:
marco 2011-09-22 13:21:38 +00:00
parent 71be686e5a
commit 07fabab526
5 changed files with 16 additions and 0 deletions

6
rtl/bsd/bunxsysc.inc
View File

@ -306,6 +306,12 @@ begin
FPsetsid:=do_syscall(syscall_nr_setsid);
end;
function fpgetsid (pid:TPid): pid_t;
begin
fpgetsid:=do_syscall(syscall_nr_getsid,TSysParam(pid));
end;
Function FPumask(cmask:mode_t):mode_t;
{
Sets file creation mask to (Mask and 0777 (octal) ), and returns the

1
rtl/freebsd/sysnr.inc
View File

@ -127,5 +127,6 @@ const
syscall_nr_kse_switchin = 440;
syscall_nr_getrlimit = 194;
syscall_nr_setrlimit = 195;
syscall_nr_getsid = 310;

6
rtl/linux/bunxsysc.inc
View File

@ -306,6 +306,12 @@ begin
fpsetsid:=do_syscall(syscall_nr_setsid);
end;
function fpgetsid (pid:TPid): pid_t;
begin
fpgetsid:=do_syscall(syscall_nr_getsid,pid);
end;
Function fpumask(cmask:mode_t):mode_t;
{
Sets file creation mask to (Mask and 0777 (octal) ), and returns the

1
rtl/unix/bunxh.inc
View File

@ -52,6 +52,7 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpGetgroups (gidsetsize : cInt; var grouplist : tgrparr): cInt;
Function FpGetpgrp : TPid;
Function FpSetsid : TPid;
Function FpGetsid (pid:TPid) : TPid;
Function FpFcntl (fildes : cInt; cmd : cInt): cInt;
Function FpFcntl (fildes : cInt; cmd : cInt; arg : cInt): cInt;
Function FpFcntl (fildes : cInt; cmd : cInt; var arg : flock): cInt;

2
rtl/unix/oscdeclh.inc
View File

@ -107,6 +107,8 @@ const
Function FpGetgroups (gidsetsize : cInt; var grouplist : tgrparr):cint; cdecl;external clib name 'getgroups';
Function FpGetpgrp : TPid; cdecl;external clib name 'getpgrp';
Function FpSetsid : TPid; cdecl;external clib name 'setsid';
Function FpGetsid (pid:TPid) : TPid; cdecl; external clib name 'getsid';
Function FpPipe (var fildes : tfildes):cInt; cdecl;external clib name 'pipe';
{ The libc version has "..." as third parameter -> wrap for }
{ interface compatibility with syscalls }