paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: omit hint for not used anonymous type

Browse Source
This commit is contained in:
mattias 2022-10-04 20:55:49 +02:00
parent a2182cb7a5
commit 01c982ad70
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1467,7 +1467,10 @@ begin
UseProcedure(TPasProcedure(Decl))
end
else if C.InheritsFrom(TPasType) then
UseType(TPasType(Decl),Mode)
begin
if OnlyExports then continue;
UseType(TPasType(Decl),Mode);
end
else if C.InheritsFrom(TPasVariable) then
begin
if OnlyExports and ([vmExport,vmPublic]*TPasVariable(Decl).VarModifiers=[]) then
@ -2890,7 +2893,7 @@ procedure TPasAnalyzer.EmitTypeHints(El: TPasType);
function IsRightStr(const s, right: string): boolean;
begin
Result:=RightStr(s,length(right))=right;
Result:=(right<>'') and (RightStr(s,length(right))=right);
end;
var
@ -2909,6 +2912,7 @@ begin
if Usage=nil then
begin
// the whole type was never used
if IsSpecializedGenericType(El) then
exit; // no hints for not used specializations
if (El.CustomData is TPasGenericScope) then