From e06e1746df801e1472ac1f389bb21f3d69d8338e Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 2 Sep 2019 14:19:04 +0000
Subject: [PATCH] LazDebuggerFp: fix uninitialized var

git-svn-id: trunk@61809 -
---
 components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index 4ebee14739..ff649ec2e5 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -649,6 +649,7 @@ begin
     e := TCallStackEntry(It.DataPtr^);
     if e.Validity = ddsRequested then
     begin
+      ProcVal := nil;
       if ThreadCallStack[e.Index].ProcSymbol <> nil then
         ProcVal := ThreadCallStack[e.Index].ProcSymbol.Value;