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

codetools: fixed rename identifier

Browse Source 
git-svn-id: trunk@26459 -
This commit is contained in:
mattias 2010-07-04 12:51:33 +00:00
parent 421757e81f
commit 6bbf89bd59
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationtool.pas
View File

@ -4023,8 +4023,8 @@ var
if Found and (Params.NewNode<>nil) then begin
UseProcHead(Params.NewNode);
//debugln('Context=',Params.NewNode.DescAsString,' ',dbgs(Params.NewNode.StartPos),' ',dbgs(DeclarationNode.StartPos));
if (Params.NewNode<>DeclarationNode)
and (Params.NewNode<>AliasDeclarationNode) then
if (Params.NewNode=DeclarationNode)
or (Params.NewNode=AliasDeclarationNode) then
AddReference(StartPos);
end;
end;