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

Add properties AfterUploadBreakZero and AfterUploadMonitorReset to test with atbackend.exe.

Browse Source
This commit is contained in:
ccrause 2021-11-01 12:13:09 +02:00
parent f78d3dd6b8
commit 9c6de4853a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgrsp.pas
View File

@ -130,6 +130,8 @@ var
AUploadBinary: boolean = False; AUploadBinary: boolean = False;
AAfterConnectMonitorCmds: TStringList; AAfterConnectMonitorCmds: TStringList;
ASkipSectionsList: TStringList; ASkipSectionsList: TStringList;
AAfterUploadBreakZero: boolean;
AAfterUploadMonitorReset: boolean;
implementation implementation
@ -929,6 +931,13 @@ begin
end; end;
end; end;
// Hack to finish initializing atbackend agent
if AAfterUploadBreakZero then
SetBreakWatchPoint(0, wkpExec); // Todo: check if different address is required
if AAfterUploadMonitorReset then
SendMonitorCmd('reset');
// Must be last init command, after init the debug loop waits for the response in WaitForSignal // Must be last init command, after init the debug loop waits for the response in WaitForSignal
res := FSendCommand('?'); res := FSendCommand('?');
finally finally