From 07bdec6e7cbcc847a694add65fcbb89024572117 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 12 Apr 2021 03:44:39 +0000
Subject: [PATCH] LazDebuggerFp: Fixed updating breakpoint-state

git-svn-id: trunk@64976 -
---
 components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index 91073d4530..b1cef6d3d9 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -511,6 +511,7 @@ type
     procedure DoStateChange(const AOldState: TDBGState); override;
     procedure DoEnableChange; override;
     procedure DoChanged; override;
+    property  Validity: TValidState write SetValid;
   public
     destructor Destroy; override;
   end;
@@ -1013,9 +1014,9 @@ begin
     assert(FDbgBreakPoint.FInternalBreakpoint = nil, 'TFpThreadWorkerBreakPointSetUpdate.UpdateBrkPoint_DecRef: FDbgBreakPoint.FInternalBreakpoint = nil');
     FDbgBreakPoint.FInternalBreakpoint := InternalBreakpoint;
     if not assigned(InternalBreakpoint) then
-      FDbgBreakPoint.SetPendingToValid(vsInvalid) // pending?
+      FDbgBreakPoint.Validity := vsInvalid // pending?
     else
-      FDbgBreakPoint.SetPendingToValid(vsValid);
+      FDbgBreakPoint.Validity := vsValid;
   end;
 
   UnQueue_DecRef;
@@ -1594,6 +1595,7 @@ begin
   FThreadWorker := TFpThreadWorkerBreakPointSetUpdate.Create(TFpDebugDebugger(Debugger), Self);
   TFpDebugDebugger(Debugger).FWorkQueue.PushItem(FThreadWorker);
 
+  FValid := vsUnknown;
   FIsSet:=true;
   debuglnExit(DBG_BREAKPOINTS, ['<< TFPBreakpoint.SetBreak ' ]);
 end;