소스 검색

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