paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 01:01:47 +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

1
rtl/os2/sysutils.pp
View File

@ -678,6 +678,7 @@ begin
SD.PgmName := PChar (CommandLine);
if ComLine <> '' then
SD.PgmInputs := PChar (ComLine);
if ExecInheritsHandles in Flags then
SD.InheritOpt := ssf_InhertOpt_Parent;
Str (GetProcessID, SPID);
Str (ThreadID, STID);