paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added the new CLONE_* constants from syscall clone

Browse Source 
git-svn-id: trunk@6686 -
This commit is contained in:
ivost 2007-02-28 22:26:42 +00:00
parent 6397ad6909
commit 1a7f06aa7d
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/objpas.inc
View File

@ -745,6 +745,7 @@
begin
NewInstance:=inherited NewInstance;
if NewInstance<>nil then
TInterfacedObject(NewInstance).frefcount:=1;
end;

14
rtl/linux/linux.pp
View File

@ -48,6 +48,20 @@ Const
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
CLONE_PTRACE = $00002000; // Set if tracing continues on the child.
CLONE_VFORK = $00004000; // Set if the parent wants the child to wake it up on mm_release.
CLONE_PARENT = $00008000; // Set if we want to have the same parent as the cloner.
CLONE_THREAD = $00010000; // Set to add to same thread group.
CLONE_NEWNS = $00020000; // Set to create new namespace.
CLONE_SYSVSEM = $00040000; // Set to shared SVID SEM_UNDO semantics.
CLONE_SETTLS = $00080000; // Set TLS info.
CLONE_PARENT_SETTID = $00100000; // Store TID in userlevel buffer before MM copy.
CLONE_CHILD_CLEARTID = $00200000; // Register exit futex and memory location to clear.
CLONE_DETACHED = $00400000; // Create clone detached.
CLONE_UNTRACED = $00800000; // Set if the tracing process can't force CLONE_PTRACE on this clone.
CLONE_CHILD_SETTID = $01000000; // Store TID in userlevel buffer in the child.
CLONE_STOPPED = $02000000; // Start in stopped state.
EPOLLIN = $01; { The associated file is available for read(2) operations. }
EPOLLPRI = $02; { There is urgent data available for read(2) operations. }