Quellcode durchsuchen

* handle properly debugger errors returned by an exec command in RunExecCommand

git-svn-id: trunk@30021 -
nickysn vor 10 Jahren
Ursprung
Commit
3fe10bfd6c
1 geänderte Dateien mit 6 neuen und 0 gelöschten Zeilen
  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;