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

* proper support for ExecInheritsHandles in Flags

Browse Source 
git-svn-id: trunk@19368 -
This commit is contained in:
Tomas Hajny 2011-10-04 22:10:21 +00:00
parent fca1ea8757
commit 49a7b48fe0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/os2/sysutils.pp
View File

@ -678,7 +678,8 @@ begin
SD.PgmName := PChar (CommandLine); SD.PgmName := PChar (CommandLine);
if ComLine <> '' then if ComLine <> '' then
SD.PgmInputs := PChar (ComLine); SD.PgmInputs := PChar (ComLine);
SD.InheritOpt := ssf_InhertOpt_Parent; if ExecInheritsHandles in Flags then
SD.InheritOpt := ssf_InhertOpt_Parent;
Str (GetProcessID, SPID); Str (GetProcessID, SPID);
Str (ThreadID, STID); Str (ThreadID, STID);
QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0; QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0;