Explorar o código

* added O_CLOEXEC

git-svn-id: trunk@38100 -
michael %!s(int64=7) %!d(string=hai) anos
pai
achega
94b6fe6ad3
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      rtl/linux/linux.pp

+ 3 - 0
rtl/linux/linux.pp

@@ -29,6 +29,9 @@ interface
 uses
 uses
   BaseUnix, unixtype;
   BaseUnix, unixtype;
 
 
+Const
+  O_CLOEXEC = $80000;
+  
 type
 type
   TSysInfo = record
   TSysInfo = record
     uptime: clong;                     //* Seconds since boot */
     uptime: clong;                     //* Seconds since boot */