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

codetools: not found identifiers of fdfcollect are not cached

Browse Source 
git-svn-id: trunk@9583 -
This commit is contained in:
mattias 2006-07-10 15:21:33 +00:00
parent e28e38295b
commit 6df73a9fb9
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/finddeclarationcache.pas
View File

@ -714,14 +714,15 @@ begin
RaiseConflictException('NewNode is not a node of NewTool'); RaiseConflictException('NewNode is not a node of NewTool');
end; end;
{if GetIdentifier(Identifier)='TDefineAction' then begin {if CompareIdentifiers(Identifier,'FillRect')=0 then begin
DebugLn('[[[[======================================================'); DebugLn('[[[[======================================================');
DebugLn('[TCodeTreeNodeCache.Add] Ident=',GetIdentifier(Identifier), DebugLn(['[TCodeTreeNodeCache.Add] Ident=',GetIdentifier(Identifier),
' CleanStartPos=',CleanStartPos,' CleanEndPos=',CleanEndPos, ' CleanStartPos=',CleanStartPos,' CleanEndPos=',CleanEndPos,
' Flags=[',NodeCacheEntryFlagsAsString(Flags),']', ' Flags=[',NodeCacheEntryFlagsAsString(Flags),']',
' NewNode=',NewNode<>nil ' NewNode=',NewNode<>nil
); ]);
DebugLn('======================================================]]]]'); DebugLn('======================================================]]]]');
CTDumpStack;
end;} end;}
if FItems=nil then if FItems=nil then
FItems:=TAVLTree.Create(@CompareTCodeTreeNodeCacheEntry); FItems:=TAVLTree.Create(@CompareTCodeTreeNodeCacheEntry);

11
components/codetools/finddeclarationtool.pas
View File

@ -2022,7 +2022,7 @@ var
DebugLn(' NewTool=',Params.NewCodeTool.MainFilename, DebugLn(' NewTool=',Params.NewCodeTool.MainFilename,
' NewNode=',Params.NewNode.DescAsString) ' NewNode=',Params.NewNode.DescAsString)
else else
DebugLn(' cache says: identifier NOT FOUND'); DebugLn(' cache says: identifier does NOT exist');
if CompareSrcIdentifiers(Params.Identifier,'TDefineAction') then begin if CompareSrcIdentifiers(Params.Identifier,'TDefineAction') then begin
NodeCache.WriteDebugReport('NANUNANA: '); NodeCache.WriteDebugReport('NANUNANA: ');
end; end;
@ -2054,7 +2054,7 @@ var
end; end;
function CheckResult(NewResult, CallOnIdentifierFound: boolean): boolean; function CheckResult(NewResult, CallOnIdentifierFound: boolean): boolean;
// returns: true if ok to exit // returns: true to stop search
// false if search should continue // false if search should continue
procedure RaiseNotFound; procedure RaiseNotFound;
@ -2127,8 +2127,8 @@ var
// identifier was not found // identifier was not found
if not (fdfExceptionOnNotFound in Params.Flags) then exit; if not (fdfExceptionOnNotFound in Params.Flags) then exit;
if (Params.Identifier<>nil) if (Params.Identifier<>nil)
and WordIsPredefinedIdentifier.DoIt(Params.Identifier) and not (fdfExceptionOnPredefinedIdent in Params.Flags)
and not (fdfExceptionOnPredefinedIdent in Params.Flags) then begin and WordIsPredefinedIdentifier.DoIt(Params.Identifier) then begin
Params.SetResult(nil,nil); Params.SetResult(nil,nil);
exit; exit;
end; end;
@ -2571,7 +2571,8 @@ begin
end; end;
end;} end;}
// if we are here, the identifier was not found // if we are here, the identifier was not found
if (FirstSearchedNode<>nil) and (Params.FoundProc=nil) then begin if (FirstSearchedNode<>nil) and (Params.FoundProc=nil)
and (not (fdfCollect in Params.Flags)) then begin
// add result to cache // add result to cache
Params.NewNode:=nil; Params.NewNode:=nil;
Params.NewCodeTool:=nil; Params.NewCodeTool:=nil;