paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 04:57:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Check stackframe for FindContext in range / out of index

Browse Source 
git-svn-id: trunk@61985 -
This commit is contained in:
martin 2019-10-05 11:09:40 +00:00
parent 3cb743cac0
commit 9b5b0c8db2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1219,6 +1219,8 @@ begin
else else
begin begin
Thread.PrepareCallStackEntryList(AStackFrame + 1); Thread.PrepareCallStackEntryList(AStackFrame + 1);
if AStackFrame >= Thread.CallStackEntryList.Count then
exit;
Frame := Thread.CallStackEntryList[AStackFrame]; Frame := Thread.CallStackEntryList[AStackFrame];
if Frame = nil then if Frame = nil then
exit; exit;