paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 22:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: clean up

Browse Source 
git-svn-id: trunk@49079 -
This commit is contained in:
Mattias Gaertner 2021-03-29 09:26:54 +00:00
parent 0d895c5826
commit e7e2b7db41
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16773,6 +16773,7 @@ begin
if (not (AContext.PasElement is TPasMembersType)) // rtti of members is added separate
and HasTypeInfo(El,AContext) then
begin
// writeln('TPasToJSConverter.ConvertArrayType ',GetObjPath(El),' ',GetObjPath(AContext.PasElement));
Call:=nil;
try
Call:=CreateRTTIAnonymousArray(El,AContext);
@ -20562,15 +20563,13 @@ begin
NewEl:=nil;
P:=TPasElement(Members[i]);
C:=P.ClassType;
writeln('AAA1 TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
//writeln('TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
if C.InheritsFrom(TPasType) and HasTypeInfo(TPasType(P),MembersFuncContext) then
begin
writeln('AAA2 TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
// published subtype
if aResolver.IsAnonymousElType(TPasType(P)) then
begin
// published anonymous eltype
writeln('AAA3 TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
if C.InheritsFrom(TPasArrayType) then
NewEl:=CreateRTTIAnonymousArray(TPasArrayType(P),MembersFuncContext);
end;

3
packages/pastojs/tests/tcmodules.pas
View File

@ -830,6 +830,7 @@ type
Procedure TestRTTI_Class_OtherUnit_TypeAlias;
Procedure TestRTTI_Class_OmitRTTI;
Procedure TestRTTI_Class_Field_AnonymousArrayOfSelfClass;
Procedure TestRTTI_Class_Field_AnonymousArrayOfSelfClass2;
Procedure TestRTTI_IndexModifier;
Procedure TestRTTI_StoredModifier;
Procedure TestRTTI_DefaultValue;
@ -29990,7 +29991,7 @@ begin
Add([
'interface',
'type',
' {$M+1}',
' {$M+}',
' TBird = class',
' published',
' Swarm: array of TBird;',