paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +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, MacOSAll,
// wdgetset // wdgetset
WSLCLClasses, Classes, SysUtils, Controls, LCLType, LCLProc, Graphics, Contnrs, WSLCLClasses, Classes, SysUtils, Controls, LCLType, LCLProc, Graphics, Contnrs,
AVL_Tree, LMessages, LCLMessageGlue; Laz_AVL_Tree, LMessages, LCLMessageGlue;
var var
LAZARUS_FOURCC: FourCharCode; // = 'Laz '; LAZARUS_FOURCC: FourCharCode; // = 'Laz ';
@ -348,7 +348,11 @@ function RegisterObjectEventHandler(AHandler: TCarbonObjectEventHandlerProc): Ev
var var
Node: TUPPAVLTreeNode; Node: TUPPAVLTreeNode;
begin 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)); Node := TUPPAVLTreeNode(UPPTree.Find(AHandler));
if Node = nil then if Node = nil then