diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-10-04 22:10:21 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-10-04 22:10:21 +0000 |
| commit | bcb1bde29099f9c08bd2d9d24ab822f6f9b94142 (patch) | |
| tree | 70938bc1b77e0dedc4c3092b6627300e177b128a /rtl/os2/sysutils.pp | |
| parent | d8b20d192dada8904ec2493c9d65e9fca09cf169 (diff) | |
| download | fpc-bcb1bde29099f9c08bd2d9d24ab822f6f9b94142.tar.gz | |
* proper support for ExecInheritsHandles in Flags
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19368 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/os2/sysutils.pp')
| -rw-r--r-- | rtl/os2/sysutils.pp | 3 |
1 files changed, 2 insertions, 1 deletions
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; |