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

Add a monitor command list to be called after uploading is finished.

Browse Source
This commit is contained in:
ccrause 2021-11-01 12:20:17 +02:00
parent 29cf0ce9d6
commit 9de2a8dfbc
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/fpdebug/fpdbgrsp.pas
View File

@ -138,7 +138,7 @@ var
AAfterConnectMonitorCmds: TStringList;
ASkipSectionsList: TStringList;
AAfterUploadBreakZero: boolean;
AAfterUploadMonitorReset: boolean;
AAfterUploadMonitorCmds: TStringList;
implementation
@ -961,10 +961,10 @@ begin
// Fancy stuff - load exe & sections, run monitor cmds etc
if assigned(AAfterConnectMonitorCmds) and (AAfterConnectMonitorCmds.Count > 0) then
begin
for i := 0 to AAfterConnectMonitorCmds.Count-1 do
SendMonitorCmd(AAfterConnectMonitorCmds[i]);
end;
begin
for i := 0 to AAfterConnectMonitorCmds.Count-1 do
SendMonitorCmd(AAfterConnectMonitorCmds[i]);
end;
// Start with AVR logic
// If more targets are supported, move this to target specific debugger class
@ -1018,9 +1018,11 @@ begin
if AAfterUploadBreakZero then
SetBreakWatchPoint(0, wkpExec); // Todo: check if different address is required
// Todo: Rather use a user configurable list of monitor commands, similar to AAfterConnectMonitorCmds
if AAfterUploadMonitorReset then
SendMonitorCmd('reset');
if assigned(AAfterUploadMonitorCmds) and (AAfterUploadMonitorCmds.Count > 0) then
begin
for i := 0 to AAfterUploadMonitorCmds.Count-1 do
SendMonitorCmd(AAfterUploadMonitorCmds[i]);
end;
// Must be last init command, after init the debug loop waits for the response in WaitForSignal
res := SendCommandAck('?');
@ -1043,5 +1045,9 @@ initialization
finalization
if Assigned(AAfterConnectMonitorCmds) then
FreeAndNil(AAfterConnectMonitorCmds);
if Assigned(ASkipSectionsList) then
FreeAndNil(ASkipSectionsList);
if Assigned(AAfterUploadMonitorCmds) then
FreeAndNil(AAfterUploadMonitorCmds);
end.