From f3bf79fa35fc9a1a74c9e1e872269ec58eb63dff Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 5 Aug 2022 16:23:36 +0200
Subject: [PATCH] Debugger: fix calling abstract method "BelongsToInstance" on
 watchpoint. Introduced 4e4c402b623f5807886fc8aa44e5f514e5a1648d

---
 components/fpdebug/fpdbgclasses.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp
index d5ed54f4c8..9ad4476d38 100644
--- a/components/fpdebug/fpdbgclasses.pp
+++ b/components/fpdebug/fpdbgclasses.pp
@@ -459,6 +459,7 @@ type
     constructor Create(const AProcess: TDbgProcess; const ALocation: TDBGPtr; ASize: Cardinal; AReadWrite: TDBGWatchPointKind;
                       AScope: TDBGWatchPointScope); virtual;
     destructor Destroy; override;
+    function BelongsToInstance(const AnInstance: TDbgInstance): Boolean; override;
 
     procedure SetBreak; override;
     procedure ResetBreak; override;
@@ -3543,6 +3544,12 @@ begin
   inherited Destroy;
 end;
 
+function TFpInternalWatchpoint.BelongsToInstance(const AnInstance: TDbgInstance
+  ): Boolean;
+begin
+  Result := False;
+end;
+
 procedure TFpInternalWatchpoint.SetBreak;
 var
   a: TDBGPtr;