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

Debugger: fix step out

Browse Source 
git-svn-id: trunk@58842 -
This commit is contained in:
martin 2018-09-03 15:55:38 +00:00
parent 9fdeb7de5c
commit 51c4594159
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -2674,7 +2674,7 @@ end;
function TDebugManager.DoStepOutProject: TModalResult; function TDebugManager.DoStepOutProject: TModalResult;
begin begin
if (FDebugger = nil) or not(dcRunTo in FDebugger.Commands) if (FDebugger = nil) or not(dcStepOut in FDebugger.Commands)
then begin then begin
Result := mrAbort; Result := mrAbort;
Exit; Exit;