paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 11:20:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Change debugging flags on process creation. Allow debugged 32bit processes to launch 64bit sub-processes without the debugger interfering. Sub-processes are anyway currently not debugged. Issue #0038546

Browse Source 
git-svn-id: trunk@64779 -
This commit is contained in:
martin 2021-03-10 18:38:39 +00:00
parent 13fc4dd5e2
commit 82c6e8b284
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/fpdbgwinclasses.pas
View File

@ -647,7 +647,8 @@ begin
result := nil; result := nil;
AProcess := TProcessUTF8.Create(nil); AProcess := TProcessUTF8.Create(nil);
try try
AProcess.Options:=[poDebugProcess, poNewProcessGroup]; // To debug sub-processes, this needs to be poDebugProcess
AProcess.Options:=[poDebugProcess, poDebugOnlyThisProcess, poNewProcessGroup];
if siForceNewConsole in AFlags then if siForceNewConsole in AFlags then
AProcess.Options:=AProcess.Options+[poNewConsole]; AProcess.Options:=AProcess.Options+[poNewConsole];
AProcess.Executable:=AFilename; AProcess.Executable:=AFilename;