diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 8308160b6b..3ccb9cf60d 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -11862,6 +11862,7 @@ class operator TGDBMIInternalAddrBreakPointList.TGDBMIInternalAddrBreakPointList
 begin
   raise Exception.Create(''); // should not get here
   c := false;
+  if a=b then ;
 //  c := (a.FId = b.FId) and (a.FAddr = b.FAddr);
 end;