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

IDE: fixed run project without debugger, issue #35186

Browse Source 
git-svn-id: trunk@60581 -
This commit is contained in:
mattias 2019-03-04 13:01:36 +00:00
parent 41a3fb6d01
commit 0f8bf86903
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -7231,6 +7231,7 @@ begin
ExeFile:=Params[0];
Params.Delete(0);
end;
//writeln('TMainIDE.DoRunProjectWithoutDebug ExeFile=',ExeFile);
Process.Executable := ExeFile;
ARunMode := Project1.RunParameterOptions.GetActiveMode;
@ -7278,6 +7279,7 @@ begin
Project1.RunParameterOptions.AssignEnvironmentTo(Process.Environment);
try
TNotifyProcessEnd.Create(Process, @DoCallRunFinishedHandler);
Process:=nil; // Process is freed by TNotifyProcessEnd
except
on E: Exception do
debugln(['Error: (lazarus) [TMainIDE.DoRunProjectWithoutDebug] ',E.Message]);