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

Fix for the visibility checking with the correct configuration.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2025-03-15 10:48:47 -03:00
parent 8870c72d91
commit d48e984ba0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21031,7 +21031,7 @@ begin
Call.AddArg(CreateRTTIArgList(Proc,Proc.ProcType.Args,AContext)); Call.AddArg(CreateRTTIArgList(Proc,Proc.ProcType.Args,AContext));
// add visibility // add visibility
ExtVis:=GetExtRTTIVisibilityParam(Proc,ParentEl.RTTIVisibility.Fields); ExtVis:=GetExtRTTIVisibilityParam(Proc,ParentEl.RTTIVisibility.Methods);
if ExtVis<>ExtRTTIVisDefaultMethod then if ExtVis<>ExtRTTIVisDefaultMethod then
AddExtRTTIVisibility; AddExtRTTIVisibility;
@ -21208,7 +21208,7 @@ begin
Call.AddArg(CreateLiteralString(Prop,GetAccessorName(SetterPas))); Call.AddArg(CreateLiteralString(Prop,GetAccessorName(SetterPas)));
// add visibility // add visibility
ExtVis:=GetExtRTTIVisibilityParam(Prop,ParentEl.RTTIVisibility.Fields); ExtVis:=GetExtRTTIVisibilityParam(Prop,ParentEl.RTTIVisibility.Properties);
if ExtVis<>ExtRTTIVisDefaultProperty then if ExtVis<>ExtRTTIVisDefaultProperty then
AddExtRTTIVisibility; AddExtRTTIVisibility;