paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 06:37:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: finding unused units: used global properties

Browse Source 
git-svn-id: trunk@19289 -
This commit is contained in:
mattias 2009-04-09 13:23:26 +00:00
parent 8b2cde0cb6
commit 54597c0fcb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/stdcodetools.pas
View File

@ -1458,6 +1458,9 @@ var
and (Node.FirstChild<>nil) and (Node.FirstChild<>nil)
and (Node.FirstChild.Desc=ctnProcedureHead) and (Node.FirstChild.Desc=ctnProcedureHead)
and IsIdentifierUsed(Node.FirstChild.StartPos) then exit; and IsIdentifierUsed(Node.FirstChild.StartPos) then exit;
ctnGlobalProperty:
if Tool.MoveCursorToPropName(Node)
and IsIdentifierUsed(Tool.CurPos.StartPos) then exit;
end; end;
Node:=Node.Next; Node:=Node.Next;
end; end;