paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Fixed MemLeak on Windows: TProcessUtf8 was not freed / introduced in e104c4c418 - merge-request !41

Browse Source
This commit is contained in:
Martin 2021-11-20 13:01:36 +01:00
parent 7c0fdd1281
commit 9213ca32e8
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpdebug/fpdbgwinclasses.pas
View File

@ -660,23 +660,22 @@ function TDbgWinProcess.StartInstance(AParams, AnEnvironment: TStrings;
AWorkingDirectory, AConsoleTty: string; AFlags: TStartInstanceFlags; out
AnError: TFpError): boolean;
var
AProcess: TProcessUTF8;
LastErr: Integer;
begin
result := false;
AProcess := TProcessUTF8.Create(nil);
FProcProcess := TProcessUTF8.Create(nil);
try
// To debug sub-processes, this needs to be poDebugProcess
AProcess.Options:=[poDebugProcess, poDebugOnlyThisProcess, poNewProcessGroup];
FProcProcess.Options:=[poDebugProcess, poDebugOnlyThisProcess, poNewProcessGroup];
if siForceNewConsole in AFlags then
AProcess.Options:=AProcess.Options+[poNewConsole];
AProcess.Executable:=Name;
AProcess.Parameters:=AParams;
AProcess.Environment:=AnEnvironment;
AProcess.CurrentDirectory:=AWorkingDirectory;
AProcess.Execute;
FProcProcess.Options:=FProcProcess.Options+[poNewConsole];
FProcProcess.Executable:=Name;
FProcProcess.Parameters:=AParams;
FProcProcess.Environment:=AnEnvironment;
FProcProcess.CurrentDirectory:=AWorkingDirectory;
FProcProcess.Execute;
Init(AProcess.ProcessID, 0);
Init(FProcProcess.ProcessID, 0);
Result:=true;
except
on E: Exception do
@ -691,7 +690,7 @@ begin
else
{$endif i386}
AnError := CreateError(fpErrCreateProcess, [Name, LastErr, E.Message, '']);
AProcess.Free;
FreeAndNil(FProcProcess);
end;
end;
end;