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

lcl: carbon: fixed crash in uptree

Browse Source 
git-svn-id: trunk@54535 -
This commit is contained in:
mattias 2017-04-06 09:22:25 +00:00
parent 0ddb1e74c5
commit 3fac8b15a6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,7 +31,7 @@ uses
MacOSAll,
// wdgetset
WSLCLClasses, Classes, SysUtils, Controls, LCLType, LCLProc, Graphics, Contnrs,
AVL_Tree, LMessages, LCLMessageGlue;
Laz_AVL_Tree, LMessages, LCLMessageGlue;
var
LAZARUS_FOURCC: FourCharCode; // = 'Laz ';
@ -348,7 +348,11 @@ function RegisterObjectEventHandler(AHandler: TCarbonObjectEventHandlerProc): Ev
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