paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 13:16:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFpGdbmi: Prevent occasional crash, when evaluate watch in nested procedure (access callstack out of index)

Browse Source 
git-svn-id: trunk@59998 -
This commit is contained in:
martin 2019-01-04 15:04:20 +00:00
parent 23c7055080
commit f9c2253b95
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
View File

@ -885,7 +885,7 @@ begin
end;
s := CallStack.CurrentCallStackList.EntriesForThreads[AThreadId];
if s = nil then begin
if (s = nil) or (AStackFrame >= s.Count) then begin
DebugLn(DBG_ERRORS, ['NO Stackframe list for thread']);
exit;
end;