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

codetools: do not add found public properties twice

Browse Source 
git-svn-id: trunk@20969 -
This commit is contained in:
mattias 2009-07-27 09:46:17 +00:00
parent 0dadadf245
commit de301ed56c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -891,6 +891,7 @@ var
exit(true); exit(true);
end; end;
end; end;
//DebugLn(['ProtectedNodeIsInAllowedClass hidden: ',FindContextToString(FoundContext)]);
Result:=false; Result:=false;
end; end;
@ -916,6 +917,7 @@ var
TAVLTree.Create(TListSortCompare(@CompareIdentifiers)) TAVLTree.Create(TListSortCompare(@CompareIdentifiers))
end else if FoundPublicProperties.Find(Ident)<>nil then begin end else if FoundPublicProperties.Find(Ident)<>nil then begin
// identifier is already public // identifier is already public
exit;
end; end;
FoundPublicProperties.Add(Ident); FoundPublicProperties.Add(Ident);
//debugln('SavePublicPublishedProperty Identifier=',GetIdentifier(Ident),' Find=',dbgs(FoundPublicProperties.Find(Ident)<>nil)); //debugln('SavePublicPublishedProperty Identifier=',GetIdentifier(Ident),' Find=',dbgs(FoundPublicProperties.Find(Ident)<>nil));