From 8dc82b987f37958e9c982ef1c11552d0e0d38263 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 1 Dec 2016 02:53:41 +0100
Subject: [PATCH] #97, fix pause and add brk not working before a first break

---
 src/ce_gdb.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index c832c492..ee3fcef9 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -1307,10 +1307,6 @@ begin
   r := fGdbState = gsRunning;
   if r then
   begin
-    // TODO-cGDB: follow state of https://sourceware.org/bugzilla/show_bug.cgi?id=18077
-    // "async mode" is not activated until a break is triggered.
-    // The action for the "pause" button is also affected.
-    // The problem exist still in GDB 7.12
     fSilentPause := true;
     gdbCommand('-exec-interrupt --all', @gdboutJsonize);
     waitCommandProcessed;
@@ -1566,7 +1562,9 @@ begin
   // launch
   cpuViewer.TIObject := fInspState;
   cpuViewer.RefreshPropertyValues;
-  gdbCommand('run >' + fOutputName + '< ' + fInputName);
+  gdbCommand('set args >' + fOutputName + '< ' + fInputName);
+  // non-MI command "run" has the same problem as https://sourceware.org/bugzilla/show_bug.cgi?id=18077
+  gdbCommand('-exec-run');
   setState(gsRunning);
 end;
 {$ENDREGION}