mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 18:09:23 +02:00
Add properties AfterUploadBreakZero and AfterUploadMonitorReset to test with atbackend.exe.
This commit is contained in:
parent
f78d3dd6b8
commit
9c6de4853a
@ -130,6 +130,8 @@ var
|
||||
AUploadBinary: boolean = False;
|
||||
AAfterConnectMonitorCmds: TStringList;
|
||||
ASkipSectionsList: TStringList;
|
||||
AAfterUploadBreakZero: boolean;
|
||||
AAfterUploadMonitorReset: boolean;
|
||||
|
||||
implementation
|
||||
|
||||
@ -929,6 +931,13 @@ begin
|
||||
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
|
||||
res := FSendCommand('?');
|
||||
finally
|
||||
|
Loading…
Reference in New Issue
Block a user