瀏覽代碼

* 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;