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

Validating the interface type in the virtual interface class.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2024-04-11 14:34:49 -03:00
parent 5f5e39c1f6
commit af3397e42c
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/rtl/src/rtti.pas
View File

@ -2210,16 +2210,21 @@ begin
InterfaceMaps := TJSObject.New;
FInterfaceType := FContext.GetType(PIID) as TRttiInterfaceType;
InterfaceInfo := FInterfaceType.InterfaceTypeInfo;
while Assigned(InterfaceInfo) do
if Assigned(FInterfaceType) then
begin
InterfaceMaps[InterfaceInfo.InterfaceInfo.GUID] := GenerateNewMap(InterfaceInfo);
InterfaceInfo := FInterfaceType.InterfaceTypeInfo;
InterfaceInfo := InterfaceInfo.Ancestor;
end;
while Assigned(InterfaceInfo) do
begin
InterfaceMaps[InterfaceInfo.InterfaceInfo.GUID] := GenerateNewMap(InterfaceInfo);
JSThis['$intfmaps'] := InterfaceMaps;
InterfaceInfo := InterfaceInfo.Ancestor;
end;
JSThis['$intfmaps'] := InterfaceMaps;
end
else
raise EInvalidCast.Create;
end;
constructor TVirtualInterface.Create(PIID: PTypeInfo; const InvokeEvent: TVirtualInterfaceInvokeEvent);