From a92db946ec220c40f3c959506c014b8319b87494 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Thu, 13 Jan 2022 18:20:13 +0100
Subject: [PATCH] FpDebug: Win32, Fix "Run (F9)" incorrectly triggered
 watch/stack updates while the app was still running (slowing execution).

---
 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 24ed067d14..08faf38ef7 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -3083,6 +3083,7 @@ begin
     bplFpcSpecific, bplRtlRestoreContext, bplRtlUnwind,
     {$ENDIF}
     bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler,
+    bplSehW32Except, bplSehW32Finally,
     {$ENDIF}
     bplStepOut]);
 
@@ -3092,6 +3093,7 @@ begin
       {$IFDEF WIN64} , bplRtlRestoreContext, bplFpcSpecific {$ENDIF}
       , bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler
       {$ENDIF}
+      , bplSehW32Except, bplSehW32Finally
       ]);
 
   case st of
@@ -3104,6 +3106,7 @@ begin
           {$IFDEF MSWINDOWS}
           {$IFDEF WIN64} , bplFpcSpecific {$ENDIF}
           , bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler
+          , bplSehW32Except, bplSehW32Finally
           {$ENDIF}
           ]);
       end