From 92a49470c8c6363eadd6415c06143232be2a3cd0 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 10 Sep 2018 22:28:16 +0000
Subject: [PATCH] LazDebugger, lldb: more step continue from except

git-svn-id: trunk@58941 -
---
 components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas b/components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
index 30dde36d8a..0455945b6f 100644
--- a/components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
@@ -695,6 +695,7 @@ const
       exit;
     end
     else begin
+      Debugger.FExceptionInfo.FAtExcepiton := True;
       Debugger.FCurrentLocation.SrcLine := -1;
       SetDebuggerState(dsPause); // after GetLocation => dsPause may run stack, watches etc
     end;
@@ -2395,8 +2396,6 @@ end;
 
 function TLldbDebugger.DoExceptionHit(AExcClass, AExcMsg: String): Boolean;
 begin
-  FExceptionInfo.FAtExcepiton := True;
-
   if Assigned(EventLogHandler) then
     EventLogHandler.LogCustomEvent(ecDebugger, etExceptionRaised,
       Format('Exception class "%s" at $%.' + IntToStr(TargetWidth div 4) + 'x with message "%s"',