소스 검색

* also set got_error to true in case of an error response in i_gdb_command

git-svn-id: trunk@29809 -
nickysn 10 년 전
부모
커밋
7f2dce8f20
1개의 변경된 파일6개의 추가작업 그리고 2개의 파일을 삭제
  1. 6 2
      ide/gdbmiint.pas

+ 6 - 2
ide/gdbmiint.pas

@@ -282,8 +282,12 @@ begin
 
 
   for I := 0 to GDB.ConsoleStream.Count - 1 do
   for I := 0 to GDB.ConsoleStream.Count - 1 do
     GDBOutputBuf.Append(PChar(GDB.ConsoleStream[I]));
     GDBOutputBuf.Append(PChar(GDB.ConsoleStream[I]));
-  if (GDB.ResultRecord.AsyncClass='error') and Assigned(GDB.ResultRecord.Parameters['msg']) then
-    GDBErrorBuf.Append(PChar(GDB.ResultRecord.Parameters['msg'].AsString));
+  if GDB.ResultRecord.AsyncClass='error' then
+  begin
+    got_error := True;
+    if Assigned(GDB.ResultRecord.Parameters['msg']) then
+      GDBErrorBuf.Append(PChar(GDB.ResultRecord.Parameters['msg'].AsString));
+  end;
   ProcessResponse;
   ProcessResponse;
   Dec(command_level);
   Dec(command_level);
   stop_breakpoint_number := prev_stop_breakpoint_number;
   stop_breakpoint_number := prev_stop_breakpoint_number;