paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 18:17:45 +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

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

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