paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed publish all members for typeinfo

Browse Source
This commit is contained in:
mattias 2022-02-12 21:14:30 +01:00
parent 925dc4bc75
commit 7be86f4635
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1296,12 +1296,8 @@ begin
continue; // attributes are never used directly continue; // attributes are never used directly
if IsGenericElement(Member) then if IsGenericElement(Member) then
continue; continue;
if Member.ClassType=TPasVariable then // all members, even if not used
// all fields, even if not used UseSubEl(Member);
UseSubEl(Member)
else if IsUsed(Member) then
// all used non fields
UseSubEl(Member);
end; end;
UseSubEl(Rec.VariantEl); UseSubEl(Rec.VariantEl);
if Rec.Variants<>nil then if Rec.Variants<>nil then