paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 20:18:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

DBG: add some checks on parentfp

Browse Source 
git-svn-id: trunk@36402 -
This commit is contained in:
martin 2012-03-28 19:52:12 +00:00
parent 19c1dbd787
commit 111eedbf93
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -11648,6 +11648,12 @@ var
FrameCache^.ParentFPList[aFrameIdx].parentfp := ParentFp;
end;
if StrToQWordDef(ParentFp, 0) = 0 then begin
FrameCache^.ParentFPList[aFrameIdx].parentfp := '-'; // mark as no parentfp
List.Free;
Exit(False);
end;
if List = nil
then List := TGDBMINameValueList.Create('');