Explorar o código

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

git-svn-id: trunk@29809 -
nickysn %!s(int64=10) %!d(string=hai) anos
pai
achega
7f2dce8f20
Modificáronse 1 ficheiros con 6 adicións e 2 borrados
  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;