paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: test-base, handle calls to event logger

Browse Source
This commit is contained in:
Martin 2024-05-19 12:30:25 +02:00
parent 1b6c857812
commit b593ba42f3
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/lazdebuggers/lazdebugtestbase/ttestdbgexecuteables.pas
View File

@ -75,6 +75,19 @@ type
end;
{ TTestDebugEventLogManager }
TTestDebugEventLogManager = class(TObject, TDebuggerEventLogInterface)
public
procedure LogCustomEvent(const ACategory: TDBGEventCategory;
const AEventType: TDBGEventType; const AText: String);
procedure LogEventBreakPointHit(const ABreakpoint: TDBGBreakPoint; const ALocation: TDBGLocationRec);
procedure LogEventWatchPointTriggered(const ABreakpoint: TDBGBreakPoint;
const ALocation: TDBGLocationRec; const AOldWatchedVal, ANewWatchedVal: String);
procedure LogEventWatchPointScope(const ABreakpoint: TDBGBreakPoint;
const ALocation: TDBGLocationRec);
end;
TTestDbgCompilerClass = class of TTestDbgCompiler;
{ TTestDbgDebugger }
@ -95,6 +108,7 @@ type
FTestBreakPoints: TStringList;
FDebuggerStateCounts: array[TDBGState] of integer;
FCurLocation: TDBGLocationRec;
FTestDebugEventLogManager: TTestDebugEventLogManager;
function GetCpuBitTypes: TCpuBitTypes;
function GetCurLocation: TDBGLocationRec; inline;
@ -407,6 +421,9 @@ begin
ADebugger.Exceptions := FExceptions;
ADebugger.OnState := @DoDebuggerState;
FTestDebugEventLogManager := TTestDebugEventLogManager.Create;
ADebugger.EventLogHandler := FTestDebugEventLogManager;
end;
procedure TTestDbgDebugger.ClearDebuggerMonitors;
@ -451,6 +468,7 @@ begin
end;
ClearDebuggerMonitors;
FreeAndNil(FLazDebugger);
FreeAndNil(FTestDebugEventLogManager);
end;
procedure TTestDbgDebugger.ClearDbgStateCounts;
@ -547,6 +565,32 @@ begin
//
end;
{ TTestDebugEventLogManager }
procedure TTestDebugEventLogManager.LogCustomEvent(const ACategory: TDBGEventCategory;
const AEventType: TDBGEventType; const AText: String);
begin
debugln(['{{Log-Event*Custom}}:', dbgs(ACategory), ' - ', ord(AEventType), ' - ', AText, ' {{<<<}}']);
end;
procedure TTestDebugEventLogManager.LogEventBreakPointHit(const ABreakpoint: TDBGBreakPoint;
const ALocation: TDBGLocationRec);
begin
//
end;
procedure TTestDebugEventLogManager.LogEventWatchPointTriggered(const ABreakpoint: TDBGBreakPoint;
const ALocation: TDBGLocationRec; const AOldWatchedVal, ANewWatchedVal: String);
begin
//
end;
procedure TTestDebugEventLogManager.LogEventWatchPointScope(const ABreakpoint: TDBGBreakPoint;
const ALocation: TDBGLocationRec);
begin
//
end;
procedure CreateCompilerList(ACompilerConfigsList: TBaseList;
ACompilerClass: TTestDbgCompilerClass);
var