From 895fe14aedf22e8f0bed3ec21dbe25e57e4c13c7 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 25 Nov 2018 20:00:38 +0000
Subject: [PATCH] LazDebuggerFp: handle "ignored exceptions" list

git-svn-id: trunk@59655 -
---
 .../lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas       | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index ae9cdb570e..38c4347bfc 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -1615,6 +1615,7 @@ var
   ExceptionClass: string;
   ExceptionMessage: string;
   RegDxDwarfIndex: byte;
+  ExceptItem: TBaseException;
 begin
   // Using regvar:
   // 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]);
   end;
 
+  ExceptItem := Exceptions.Find(ExceptionClass);
+  if (ExceptItem <> nil) and (ExceptItem.Enabled)
+  then begin
+    continue := True;
+    exit;
+  end;
+
+
   DoException(deInternal, ExceptionClass, AnExceptionLocation, ExceptionMessage, continue);
 end;