瀏覽代碼

* 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
     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;
   Dec(command_level);
   stop_breakpoint_number := prev_stop_breakpoint_number;