paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 06:43:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Create the correct derived TFpWatchPointData class for TDbgRspProcess.

Browse Source
This commit is contained in:
ccrause 2024-02-05 20:35:38 +02:00 committed by Martin
parent 86d90d47e5
commit a4832021a4
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgrspclasses.pas
View File

@ -74,6 +74,7 @@ type
FRegArrayLength: integer;
function AnalyseDebugEvent(AThread: TDbgThread): TFPDEvent; override;
function CreateWatchPointData: TFpWatchPointData; override;
procedure InitializeLoaders; override;
// Insert/Delete break points on target
// TODO: if target doesn't support break points or have limited break points
@ -812,6 +813,11 @@ begin
end;
end;
function TDbgRspProcess.CreateWatchPointData: TFpWatchPointData;
begin
Result := TFpRspWatchPointData.Create;
end;
initialization
DBG_VERBOSE := DebugLogger.FindOrRegisterLogGroup('DBG_VERBOSE' {$IFDEF DBG_VERBOSE} , True {$ENDIF} );
DBG_WARNINGS := DebugLogger.FindOrRegisterLogGroup('DBG_WARNINGS' {$IFDEF DBG_WARNINGS} , True {$ENDIF} );