From 49a7b48fe0bf0f5979dc80c51b2a65a7205c5701 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Tue, 4 Oct 2011 22:10:21 +0000
Subject: [PATCH]   * proper support for ExecInheritsHandles in Flags

git-svn-id: trunk@19368 -
---
 rtl/os2/sysutils.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index cee7d712d2..d1e006c892 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -678,7 +678,8 @@ begin
  SD.PgmName := PChar (CommandLine);
  if ComLine <> '' then
   SD.PgmInputs := PChar (ComLine);
- SD.InheritOpt := ssf_InhertOpt_Parent;
+ if ExecInheritsHandles in Flags then
+   SD.InheritOpt := ssf_InhertOpt_Parent;
  Str (GetProcessID, SPID);
  Str (ThreadID, STID);
  QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0;