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

pastojs: do not add rtti for public constructor for class without rtti, related #37752

Browse Source
This commit is contained in:
mattias 2023-10-17 15:09:22 +02:00
parent bb817db47a
commit 985dec61b1
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/pastojs/src/fppas2js.pp
View File

@ -21240,7 +21240,15 @@ begin
// check visibility
case mt of
mtClass:
if (P.Visibility<>visPublished) and (not P.InheritsFrom(TPasConstructor) or (P.Visibility <> visPublic)) then continue;
if (P.Visibility=visPublished) then
// published member
else if (P is TPasConstructor) and (P.Visibility = visPublic)
and (pcsfPublished in TPas2JSClassScope(El.CustomData).Flags) then
// this class supports published members -> add public constructor to RTTI
// workaround til extended RTTI
// see issue #37752
else
continue;
mtInterface: ; // all members of an interface are published
mtRecord:
// a published record publishes all non private members