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

Todo reminders for later improvements

Browse Source
This commit is contained in:
ccrause 2021-08-09 21:46:06 +02:00
parent 052a1245a7
commit 211a02deb9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/fpdbgrsp.pas
View File

@ -1026,11 +1026,12 @@ begin
if AAfterUploadBreakZero then if AAfterUploadBreakZero then
SetBreakWatchPoint(0, wkpExec); // Todo: check if different address is required 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 if AAfterUploadMonitorReset then
SendMonitorCmd('reset'); 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('?'); // Todo: should rather call FSendCommandOK, but qemu doesn't send ACK for '?'
finally finally
LeaveCriticalSection(fCS); LeaveCriticalSection(fCS);
end; end;