Jelajahi Sumber

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

git-svn-id: trunk@29809 -
nickysn 10 tahun lalu
induk
melakukan
7f2dce8f20
1 mengubah file dengan 6 tambahan dan 2 penghapusan
  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;