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

Merge branch 'RecordInfoRTTI' into 'main'

Browse Source 
Generated record info to allow creation of a record by RTTI information.

See merge request freepascal.org/fpc/source!573
This commit is contained in:
Henrique Gottardi Werlang 2025-04-03 20:21:58 -03:00
commit 849ab7526c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19043,6 +19043,7 @@ var
ObjLit: TJSObjectLiteral; ObjLit: TJSObjectLiteral;
Call: TJSCallExpression; Call: TJSCallExpression;
HasRTTIMembers: Boolean; HasRTTIMembers: Boolean;
RecordInfo: TJSObjectLiteralElement;
begin begin
// module.$rtti.$Record("typename",{}); // module.$rtti.$Record("typename",{});
Call:=CreateRTTINewType(El,GetBIName(pbifnRTTINewRecord),false,FuncContext,ObjLit); Call:=CreateRTTINewType(El,GetBIName(pbifnRTTINewRecord),false,FuncContext,ObjLit);
@ -19054,7 +19055,13 @@ begin
end; end;
HasRTTIMembers:=CreateRTTIMembers(El,Src,FuncContext,MembersSrc,MembersFuncContext,Call,false); HasRTTIMembers:=CreateRTTIMembers(El,Src,FuncContext,MembersSrc,MembersFuncContext,Call,false);
if not HasRTTIMembers then if HasRTTIMembers then
begin
RecordInfo := ObjLit.Elements.AddElement;
RecordInfo.Name := GetBIName(pbivnPtrRecord);
RecordInfo.Expr := CreatePrimitiveDotExpr('this', El);
end
else
begin begin
// no published members, add "module.$rtti.$Record..." // no published members, add "module.$rtti.$Record..."
if Src=MembersSrc then if Src=MembersSrc then