Переглянути джерело

* handle properly debugger errors returned by an exec command in RunExecCommand

git-svn-id: trunk@30021 -
nickysn 10 роки тому
батько
коміт
3fe10bfd6c
1 змінених файлів з 6 додано та 0 видалено
  1. 6 0
      ide/gdbmicon.pas

+ 6 - 0
ide/gdbmicon.pas

@@ -177,6 +177,12 @@ procedure TGDBController.RunExecCommand(const Cmd: string);
 begin
   UserScreen;
   Command(Cmd);
+  if not GDB.ResultRecord.Success then
+  begin
+    DebuggerScreen;
+    got_error := True;
+    exit;
+  end;
   WaitForProgramStop;
 end;