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

LazDebuggerFp: fix uninitialized var

Browse Source 
git-svn-id: trunk@61809 -
This commit is contained in:
martin 2019-09-02 14:19:04 +00:00
parent e948c7b47a
commit e06e1746df
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -649,6 +649,7 @@ begin
e := TCallStackEntry(It.DataPtr^); e := TCallStackEntry(It.DataPtr^);
if e.Validity = ddsRequested then if e.Validity = ddsRequested then
begin begin
ProcVal := nil;
if ThreadCallStack[e.Index].ProcSymbol <> nil then if ThreadCallStack[e.Index].ProcSymbol <> nil then
ProcVal := ThreadCallStack[e.Index].ProcSymbol.Value; ProcVal := ThreadCallStack[e.Index].ProcSymbol.Value;