paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebugger, lldb: more step continue from except

Browse Source 
git-svn-id: trunk@58941 -
This commit is contained in:
martin 2018-09-10 22:28:16 +00:00
parent 7183dd5d0b
commit 92a49470c8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
View File

@ -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"',