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

Cope in TGDBInterface.WaitForProgramStop with absent frame

Browse Source 
git-svn-id: trunk@42862 -
This commit is contained in:
pierre 2019-08-28 11:53:04 +00:00
parent 0fa280f4c2
commit 03a1fef0cf
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/ide/gdbmiint.pas
View File

@ -409,12 +409,24 @@ Ignore:
else else
BreakpointNo := 0; BreakpointNo := 0;
Addr := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr'].AsCoreAddr; if Assigned(GDB.ExecAsyncOutput.Parameters['frame']) then
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname']) then begin
FileName := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname'].AsString; if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr']) then
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line']) then Addr := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr'].AsCoreAddr
LineNumber := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line'].AsLongInt; else
Addr := 0;
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname']) then
FileName := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['fullname'].AsString;
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line']) then
LineNumber := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['line'].AsLongInt;
end
else
begin
if Assigned(GDB.ExecAsyncOutput.Parameters['fullname']) then
FileName := GDB.ExecAsyncOutput.Parameters['fullname'].AsString;
if Assigned(GDB.ExecAsyncOutput.Parameters['line']) then
LineNumber := GDB.ExecAsyncOutput.Parameters['line'].AsLongInt;
end;
{ this kills GDB.ExecAsyncOutput, because it may execute other gdb commands, so { this kills GDB.ExecAsyncOutput, because it may execute other gdb commands, so
make sure we have read all parameters that we need to local variables before that } make sure we have read all parameters that we need to local variables before that }
DebuggerScreen; DebuggerScreen;