paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: handle "ignored exceptions" list

Browse Source 
git-svn-id: trunk@59655 -
This commit is contained in:
martin 2018-11-25 20:00:38 +00:00
parent 12ea17499a
commit 895fe14aed
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1615,6 +1615,7 @@ var
ExceptionClass: string; ExceptionClass: string;
ExceptionMessage: string; ExceptionMessage: string;
RegDxDwarfIndex: byte; RegDxDwarfIndex: byte;
ExceptItem: TBaseException;
begin begin
// Using regvar: // Using regvar:
// In all their wisdom, people decided to give the (r)dx register dwarf index // In all their wisdom, people decided to give the (r)dx register dwarf index
@ -1633,6 +1634,14 @@ begin
ExceptionMessage := ReadAnsiString(AnExceptionObjectLocation+DBGPTRSIZE[FDbgController.CurrentProcess.Mode]); ExceptionMessage := ReadAnsiString(AnExceptionObjectLocation+DBGPTRSIZE[FDbgController.CurrentProcess.Mode]);
end; end;
ExceptItem := Exceptions.Find(ExceptionClass);
if (ExceptItem <> nil) and (ExceptItem.Enabled)
then begin
continue := True;
exit;
end;
DoException(deInternal, ExceptionClass, AnExceptionLocation, ExceptionMessage, continue); DoException(deInternal, ExceptionClass, AnExceptionLocation, ExceptionMessage, continue);
end; end;