From 94b6fe6ad3665a7697c80cebf0a4dc39aca44681 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 2 Feb 2018 10:33:13 +0000
Subject: [PATCH] * added O_CLOEXEC

git-svn-id: trunk@38100 -
---
 rtl/linux/linux.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index 6b9ecfcd22..a18365053c 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -29,6 +29,9 @@ interface
 uses
   BaseUnix, unixtype;
 
+Const
+  O_CLOEXEC = $80000;
+  
 type
   TSysInfo = record
     uptime: clong;                     //* Seconds since boot */