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

IDE: Remove a redundant ToolStatus test.

Browse Source 
git-svn-id: trunk@62256 -
This commit is contained in:
juha 2019-11-17 14:22:39 +00:00
parent 410b95d666
commit 4e9cd68c9f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -3894,10 +3894,9 @@ begin
begin
if (rfInteractive in AFlags)
and (IDEQuestionDialog(lisStopDebugging, lisStopTheDebugging,
mtConfirmation, [mrYes, lisStop,
mrCancel, lisContinue]) <> mrYes)
mtConfirmation, [mrYes,lisStop, mrCancel,lisContinue]) <> mrYes)
then exit;
if (DebugBoss.DoStopProject = mrOK) and (ToolStatus = itDebugger) and (rfCloseOnDone in AFlags) then
if (DebugBoss.DoStopProject = mrOK) and (rfCloseOnDone in AFlags) then
FWaitForClose := True;
if rfSuccessOnTrigger in AFlags then
exit(true);