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

codetools: fixed FindCodeTreeNodeExtAVLNode

Browse Source 
git-svn-id: trunk@34246 -
This commit is contained in:
mattias 2011-12-17 14:05:33 +00:00
parent ce22bc9ad1
commit e05554c7fc
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codetree.pas
View File

@ -474,7 +474,7 @@ end;
function FindCodeTreeNodeExtAVLNode(Tree: TAVLTree; const Txt: string
): TAVLTreeNode;
begin
Result:=Tree.FindKey(@Txt,@CompareTxtWithCodeTreeNodeExt);
Result:=Tree.FindKey(Pointer(Txt),@CompareTxtWithCodeTreeNodeExt);
end;
function FindCodeTreeNodeExtWithIdentifier(Tree: TAVLTree; Identifier: PChar
@ -506,12 +506,9 @@ end;
function CompareTxtWithCodeTreeNodeExt(p: Pointer; NodeData: pointer
): integer;
var
s: String;
NodeExt: TCodeTreeNodeExtension absolute NodeData;
begin
s:=Ansistring(p);
Result:=CompareTextIgnoringSpace(s,NodeExt.Txt,false);
//debugln('CompareTxtWithCodeTreeNodeExt ',NodeExt.Txt,' ',s,' ',dbgs(Result));
Result:=CompareTextIgnoringSpace(Ansistring(p),NodeExt.Txt,false);
end;
function CompareIdentifierWithCodeTreeNodeExt(p: Pointer; NodeData: pointer