mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 10:59:29 +02:00
Debugger: fix step out
git-svn-id: trunk@58842 -
This commit is contained in:
parent
9fdeb7de5c
commit
51c4594159
@ -2674,7 +2674,7 @@ end;
|
||||
|
||||
function TDebugManager.DoStepOutProject: TModalResult;
|
||||
begin
|
||||
if (FDebugger = nil) or not(dcRunTo in FDebugger.Commands)
|
||||
if (FDebugger = nil) or not(dcStepOut in FDebugger.Commands)
|
||||
then begin
|
||||
Result := mrAbort;
|
||||
Exit;
|
||||
|
Loading…
Reference in New Issue
Block a user