From bc73f7750f9da4d8419b6b3f88bbc2ec43b871af Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 3 Jan 2021 01:37:56 +0000
Subject: [PATCH] LazDebuggerFp: Fix endless loop, in stack supplier.

git-svn-id: trunk@64319 -
---
 components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index 7758decfb3..2f73ff7c45 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -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;