From f6a2099d252857a2b142def64d640180cfb36e46 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 7 Dec 2017 14:58:42 +0000
Subject: [PATCH] IDE: Prevent crash in CodeExplorer. AddCodeNode can return
 Nil. Issue #32786, patch from Timl.

git-svn-id: trunk@56661 -
---
 ide/codeexplorer.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index 68f3e3a386..69b0409030 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -1282,7 +1282,8 @@ begin
             begin
               ProcNode:=CodeNode.Parent;
               TVNode:=AddCodeNode(cefcLongProcs,ProcNode);
-              TVNode.Text:=TVNode.Text+' ['+IntToStr(LineCnt)+']';
+              if Assigned(TVNode) then
+                TVNode.Text:=TVNode.Text+' ['+IntToStr(LineCnt)+']';
             end;
           end;
           if (cefcEmptyProcs in ObserverCats)