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

LazDebuggerFp: Fix endless loop, in stack supplier.

Browse Source 
git-svn-id: trunk@64319 -
This commit is contained in:
martin 2021-01-03 01:37:56 +00:00
parent b8b3de002a
commit bc73f7750f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2270,8 +2270,10 @@ begin
then It.Next;
if not FpDebugger.IsPausedAndValid then begin
while (not IT.EOM) and (TCallStackEntry(It.DataPtr^).Index <= ACallstack.HighestUnknown) do
while (not IT.EOM) and (TCallStackEntry(It.DataPtr^).Index <= ACallstack.HighestUnknown) do begin
TCallStackEntry(It.DataPtr^).Validity := ddsInvalid;
IT.Next;
end;
It.Free;
exit;
end;