paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 13:28:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: Fixed/Workaround an endless loop with auto-continue breakpoints. The new async-stack-eval was not taken into account.

Browse Source 
git-svn-id: trunk@62319 -
This commit is contained in:
martin 2019-12-03 01:55:29 +00:00
parent dc42d0fa38
commit b206664b05
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1859,10 +1859,13 @@ begin
if &continue then begin
// wait for any watches for Snapshots
while FWatchAsyncQueued do
while FWatchAsyncQueued do begin
if TFPCallStackSupplier(CallStack).FReqList.Count > 0 then
Application.Idle(False);
ProcessASyncWatches(0);
end;
end;
end;
procedure TFpDebugDebugger.FDbgControllerCreateProcessEvent(var continue: boolean);
begin