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

codetools: findbasetype: skip current context in type defs

Browse Source 
git-svn-id: trunk@39558 -
This commit is contained in:
mattias 2012-12-16 10:25:33 +00:00
parent 6b37bec961
commit 0869cb145f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -3543,7 +3543,8 @@ var
+(fdfGlobals*SubParams.Flags); +(fdfGlobals*SubParams.Flags);
SubParams.SetIdentifier(Self,@Src[IdentStart],nil); SubParams.SetIdentifier(Self,@Src[IdentStart],nil);
SubParams.ContextNode:=StartNode.Parent; SubParams.ContextNode:=StartNode.Parent;
if (SubParams.ContextNode.Desc in AllIdentifierDefinitions) then begin if (SubParams.ContextNode.Desc in (AllIdentifierDefinitions+AllPascalTypes))
then begin
// pascal allows things like 'var a: a;' -> skip var definition // pascal allows things like 'var a: a;' -> skip var definition
Include(SubParams.Flags,fdfIgnoreCurContextNode); Include(SubParams.Flags,fdfIgnoreCurContextNode);
end; end;