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

fixed caching of collection

Browse Source 
git-svn-id: trunk@3762 -
This commit is contained in:
mattias 2002-12-29 22:37:31 +00:00
parent 7268e228ed
commit d32c330510
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/finddeclarationtool.pas
View File

@ -1551,7 +1551,7 @@ var
procedure CacheResult(Found: boolean);
begin
if Found and (not (fdfDoNotCache in Params.NewFlags))
if Found and ([fdfDoNotCache,fdfCollect]*Params.NewFlags=[])
and (FirstSearchedNode<>nil) then begin
// cache result
if (Params.NewNode<>nil) and (Params.NewNode.Desc=ctnProcedure) then begin
@ -3120,7 +3120,8 @@ begin
AskingTool.AddToolDependency(Self);
// search identifier in cache
if FInterfaceIdentifierCache<>nil then begin
if (FInterfaceIdentifierCache<>nil)
and (not (fdfCollect in Params.Flags)) then begin
CacheEntry:=FInterfaceIdentifierCache.FindIdentifier(Params.Identifier);
if CacheEntry<>nil then begin
// identifier in cache found
@ -3167,7 +3168,7 @@ begin
// save result in cache
if FInterfaceIdentifierCache=nil then
FInterfaceIdentifierCache:=TInterfaceIdentifierCache.Create(Self);
if Result then begin
if Result and (not (fdfCollect in Params.Flags)) then begin
// identifier exists in interface
if (Params.NewNode.Desc<>ctnProcedure) then begin
FInterfaceIdentifierCache.Add(OldInput.Identifier,Params.NewNode,