paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:10:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from Mattias Gaertner for System.Delete() use analyses.

Browse Source 
git-svn-id: trunk@35703 -
This commit is contained in:
michael 2017-04-01 15:59:57 +00:00
parent 945b0aa98b
commit 9e39442dbc
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -607,6 +607,8 @@ begin
UseExpr(TPasExpr(El))
else if C=TPasEnumValue then
MarkElementAsUsed(El)
else if C.InheritsFrom(TPasModule) then
// e.g. unitname.identifier -> the module is used by the identifier
else
RaiseNotSupported(20170307090947,El);
end;

2
packages/fcl-passrc/tests/tcuseanalyzer.pas
View File

@ -1134,8 +1134,10 @@ begin
StartProgram(false);
Add('var {#a_notused}a: longint;');
Add('var {#b_used}b: longint;');
Add('var {#c_used}c: longint;');
Add('begin');
Add(' b:=2;');
Add(' afile.c:=3;');
AnalyzeWholeProgram;
end;