From 0922a747d7cab6acfdc68d6d29c71a72709d26ca Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Tue, 28 Nov 2023 14:01:43 +0100
Subject: [PATCH] FpDebug: fix MaskBreakpointsInReadData. Don't remove non-set
 breakpoints

---
 components/fpdebug/fpdbgclasses.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp
index 4f4e890cd9..1b344f5166 100644
--- a/components/fpdebug/fpdbgclasses.pp
+++ b/components/fpdebug/fpdbgclasses.pp
@@ -1469,7 +1469,7 @@ var
   Brk: TBreakLocationEntry;
 begin
   for Brk in Self do begin
-    if (Brk.Location >= AAdress) and (Brk.Location < (AAdress+ASize)) then
+    if (not Brk.ErrorSetting) and (Brk.Location >= AAdress) and (Brk.Location < (AAdress+ASize)) then
       PByte(@AData)[Brk.Location-AAdress] := Brk.OrigValue;
   end;
 end;