paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-22 19:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: added TTypeMember.Visibility

Browse Source
This commit is contained in:
mattias 2025-01-07 14:04:23 +01:00
parent e852fabe71
commit d65a4d6fd0
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/src/typinfo.pas
View File

@ -200,6 +200,15 @@ type
); );
TTypeMemberKinds = set of TTypeMemberKind; TTypeMemberKinds = set of TTypeMemberKind;
TTypeMemberVisibility = (
tmvPrivate,
tmvProtected,
tmvPublic,
tmvPublished,
tmvPublishedPublic // public for extended RTTI, published for basic RTTI, cvPublished was missing in the RTTI directive
);
TTypeMemberVisibilities = set of TTypeMemberVisibility;
{ TTypeMember } { TTypeMember }
TTypeMember = class external name 'rtl.tTypeMember' TTypeMember = class external name 'rtl.tTypeMember'
@ -207,6 +216,7 @@ type
Name: String external name 'name'; Name: String external name 'name';
Kind: TTypeMemberKind external name 'kind'; Kind: TTypeMemberKind external name 'kind';
Attributes: TTypeInfoAttributes external name 'attr'; // can be nil Attributes: TTypeInfoAttributes external name 'attr'; // can be nil
Visibility: TTypeMemberVisibility external name 'visibility';
end; end;
TTypeMemberDynArray = array of TTypeMember; TTypeMemberDynArray = array of TTypeMember;