paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +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
BreakpointNo := 0;
Addr := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr'].AsCoreAddr;
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;
if Assigned(GDB.ExecAsyncOutput.Parameters['frame']) then
begin
if Assigned(GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr']) then
Addr := GDB.ExecAsyncOutput.Parameters['frame'].AsTuple['addr'].AsCoreAddr
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
make sure we have read all parameters that we need to local variables before that }
DebuggerScreen;