From 9c6de4853aa8cca909d0a73b6f7d6650f905748b Mon Sep 17 00:00:00 2001
From: ccrause <christo.crause@gmail.com>
Date: Mon, 1 Nov 2021 12:13:09 +0200
Subject: [PATCH] Add properties AfterUploadBreakZero and
 AfterUploadMonitorReset to test with atbackend.exe.

---
 components/fpdebug/fpdbgrsp.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/fpdebug/fpdbgrsp.pas b/components/fpdebug/fpdbgrsp.pas
index 18b8f1bcd3..9bfe71239c 100644
--- a/components/fpdebug/fpdbgrsp.pas
+++ b/components/fpdebug/fpdbgrsp.pas
@@ -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