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

fixed interface scope search

Browse Source 
git-svn-id: trunk@4131 -
This commit is contained in:
mattias 2003-05-05 14:20:03 +00:00
parent dfe8ae8eee
commit 0d07751565
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -3243,9 +3243,8 @@ begin
// save result in cache
if FInterfaceIdentifierCache=nil then
FInterfaceIdentifierCache:=TInterfaceIdentifierCache.Create(Self);
if Result then begin
if Result and (Params.NewCodeTool=Self) then begin
// identifier exists in interface
if Params.NewCodeTool<>Self then RaiseWrongContext;
if (not (fdfDoNotCache in Params.NewFlags))
and (not (fdfCollect in Params.Flags)) then begin
FInterfaceIdentifierCache.Add(OldInput.Identifier,Params.NewNode,