From 4f94496f20c764138aa03ff720af6cff5e0cb228 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Tue, 7 Dec 2021 14:01:23 +0100
Subject: [PATCH] LazDebuggerFp: clear flags for set/unset internal breaks

---
 components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index fdee310484..f9ad735875 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -2320,6 +2320,8 @@ end;
 
 procedure TFpDebugExceptionStepping.DoProcessLoaded;
 begin
+  FBreakEnabled := [];
+  FBreakNewEnabled := [];
   debuglnEnter(DBG_BREAKPOINTS, ['>> TFpDebugDebugger.SetSoftwareExceptionBreakpoint FPC_RAISEEXCEPTION' ]);
   FBreakPoints[bplRaise]         := FDebugger.AddBreak('FPC_RAISEEXCEPTION');
   FBreakPoints[bplBreakError]    := FDebugger.AddBreak('FPC_BREAK_ERROR');
@@ -2336,6 +2338,7 @@ end;
 procedure TFpDebugExceptionStepping.DoNtDllLoaded(ALib: TDbgLibrary);
 begin
   debugln(DBG_BREAKPOINTS, ['SetSoftwareExceptionBreakpoint RtlUnwind']);
+  DisableBreaksDirect([bplRtlUnwind]);
   FBreakPoints[bplRtlUnwind].Free;
   FBreakPoints[bplRtlUnwind] := FDebugger.AddBreak('RtlUnwindEx', ALib, False);
 end;