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

Debugger: fix calling abstract method "BelongsToInstance" on watchpoint. Introduced 4e4c402b62

Browse Source
This commit is contained in:
Martin 2022-08-05 16:23:36 +02:00
parent 5708b50487
commit f3bf79fa35
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpdbgclasses.pp
View File

@ -459,6 +459,7 @@ type
constructor Create(const AProcess: TDbgProcess; const ALocation: TDBGPtr; ASize: Cardinal; AReadWrite: TDBGWatchPointKind; constructor Create(const AProcess: TDbgProcess; const ALocation: TDBGPtr; ASize: Cardinal; AReadWrite: TDBGWatchPointKind;
AScope: TDBGWatchPointScope); virtual; AScope: TDBGWatchPointScope); virtual;
destructor Destroy; override; destructor Destroy; override;
function BelongsToInstance(const AnInstance: TDbgInstance): Boolean; override;
procedure SetBreak; override; procedure SetBreak; override;
procedure ResetBreak; override; procedure ResetBreak; override;
@ -3543,6 +3544,12 @@ begin
inherited Destroy; inherited Destroy;
end; end;
function TFpInternalWatchpoint.BelongsToInstance(const AnInstance: TDbgInstance
): Boolean;
begin
Result := False;
end;
procedure TFpInternalWatchpoint.SetBreak; procedure TFpInternalWatchpoint.SetBreak;
var var
a: TDBGPtr; a: TDBGPtr;