paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 21:50:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: carbon: fixed crash on IDE close

Browse Source 
git-svn-id: trunk@54559 -
This commit is contained in:
mattias 2017-04-07 16:52:13 +00:00
parent 8675415a02
commit 0e3f65c569
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbondef.pp
View File

@ -377,7 +377,11 @@ function RegisterEventHandler(AHandler: TCarbonEventHandlerProc): EventHandlerUP
var
Node: TUPPAVLTreeNode;
begin
if UPPTree = nil then UPPTree := TAVLTree.Create;
if UPPTree = nil then
begin
UPPTree := TAVLTree.Create;
UPPTree.NodeClass:=TUPPAVLTreeNode;
end;
Node := TUPPAVLTreeNode(UPPTree.Find(AHandler));
if Node = nil then