paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@29809 -
This commit is contained in:
nickysn 2015-02-23 21:15:21 +00:00
parent dff7cb3c3c
commit 7f2dce8f20
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/gdbmiint.pas
View File

@ -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;