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

codetools: codecache extended for non identifiers

Browse Source 
git-svn-id: trunk@20261 -
This commit is contained in:
mattias 2009-05-27 12:05:51 +00:00
parent 568ae66df6
commit cd986dfe6c
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/codetools/cachecodetools.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils,
FileProcs, CodeAtom, CodeCache, KeywordFuncLists, CustomCodeTool,
FindDeclarationTool, AVL_Tree;
BasicCodeTools, FindDeclarationTool, AVL_Tree;
type
@ -181,10 +181,7 @@ begin
if (CodePos.P<1) or (CodePos.P>Code.SourceLength) then exit;
// move cursor to start of atom (needed to find CodePos in cache)
while (CodePos.P>1) and (IsIdentChar[Code.Source[CodePos.P-1]]) do
dec(CodePos.P);
if not IsIdentChar[Code.Source[CodePos.P]] then exit;
CodePos.P:=FindStartOfAtom(Code.Source,CodePos.P);
// search in cache
CheckCurrentIsValid;
@ -201,16 +198,20 @@ begin
CacheWasUsed:=false;
//DebugLn(['TDeclarationInheritanceCache.FindDeclarations searching ',Code.Filename,'(X=',X,',Y=',Y,')']);
if IsIdentChar[Code.Source[CodePos.P]] then begin
//DebugLn(['TDeclarationInheritanceCache.FindDeclarations searching ',Code.Filename,'(X=',X,',Y=',Y,')']);
// ask the codetools
if OnFindDeclarations(Code,X,Y,ListOfPCodeXYPosition,[])
and (ListOfPCodeXYPosition<>nil)
and (ListOfPCodeXYPosition.Count>0) then begin
Result:=true;
// ask the codetools
if OnFindDeclarations(Code,X,Y,ListOfPCodeXYPosition,[])
and (ListOfPCodeXYPosition<>nil)
and (ListOfPCodeXYPosition.Count>0) then begin
Result:=true;
end else begin
FreeAndNil(ListOfPCodeXYPosition);
Result:=false;
end;
end else begin
FreeAndNil(ListOfPCodeXYPosition);
Result:=false;
exit;
end;
// save to cache