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

FpDebugger (pure): Handle a failing pause properly

Browse Source 
git-svn-id: trunk@45859 -
This commit is contained in:
joost 2014-07-13 21:40:40 +00:00
parent 113cc3749d
commit 8d79ffd221
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1406,8 +1406,7 @@ end;
procedure TFpDebugDebugger.QuickPause; procedure TFpDebugDebugger.QuickPause;
begin begin
FQuickPause:=true; FQuickPause:=FQuickPause;
FDbgController.Pause;
end; end;
procedure TFpDebugDebugger.DoState(const OldState: TDBGState); procedure TFpDebugDebugger.DoState(const OldState: TDBGState);