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

Fixed creation pointer information in Pas2Js.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2023-08-08 15:13:49 -03:00 committed by Mattias Gaertner
parent 9440b17eea
commit 14fa611979
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16693,11 +16693,11 @@ begin
RaiseNotSupported(El,AContext,20181231112029);
// module.$rtti.$Pointer("name",{...})
Call:=CreateRTTINewType(El,GetBIName(pbifnRTTIInherited),false,AContext,Obj);
Call:=CreateRTTINewType(El,GetBIName(pbifnRTTINewPointer),false,AContext,Obj);
try
// "comptype: ref"
Prop:=Obj.Elements.AddElement;
Prop.Name:=TJSString(GetBIName(pbivnRTTISet_CompType));
Prop.Name:=TJSString(GetBIName(pbivnRTTIPointer_RefType));
Prop.Expr:=CreateTypeInfoRef(El.DestType,AContext,El);
Result:=Call;
finally
@ -26677,7 +26677,6 @@ begin
// COM: $ir.ref(id,rtl.queryIntfT(Expr,IntfType))
Call.Expr:=CreateMemberExpression([GetBIName(pbivnRTL),GetBIName(pbifnIntfQueryIntfT)]);
Call.AddArg(Result);
Result:=Call;
Call.AddArg(CreateReferencePathExpr(ArgTypeEl,AContext));
Call:=CreateIntfRef(Call,AContext,El);
Result:=Call;