From 01c982ad707f23090c37e04f646ac7878e3bba0c Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 4 Oct 2022 20:55:49 +0200 Subject: [PATCH] fcl-passrc: omit hint for not used anonymous type --- packages/fcl-passrc/src/pasuseanalyzer.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/packages/fcl-passrc/src/pasuseanalyzer.pas b/packages/fcl-passrc/src/pasuseanalyzer.pas index 3a8cc2be01..0756dd534d 100644 --- a/packages/fcl-passrc/src/pasuseanalyzer.pas +++ b/packages/fcl-passrc/src/pasuseanalyzer.pas @@ -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