mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-30 20:22:37 +02:00
FpDebugger (pure): Handle a failing pause properly
git-svn-id: trunk@45859 -
This commit is contained in:
parent
113cc3749d
commit
8d79ffd221
@ -1406,8 +1406,7 @@ end;
|
||||
|
||||
procedure TFpDebugDebugger.QuickPause;
|
||||
begin
|
||||
FQuickPause:=true;
|
||||
FDbgController.Pause;
|
||||
FQuickPause:=FQuickPause;
|
||||
end;
|
||||
|
||||
procedure TFpDebugDebugger.DoState(const OldState: TDBGState);
|
||||
|
Loading…
Reference in New Issue
Block a user