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

webidl: wasmjob: started return type array

Browse Source
This commit is contained in:
mattias 2022-06-30 22:28:52 +02:00
parent 7bad177139
commit 7486782674
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/webidl/src/webidltowasmjob.pp
View File

@ -381,7 +381,7 @@ Var
I: Integer;
AddFuncBody: Boolean;
ArgDefList: TIDLDefinitionList;
CurDef, ArgType: TIDLDefinition;
CurDef, ArgType, ReturnDef: TIDLDefinition;
ArgDef: TIDLArgumentDefinition absolute CurDef;
begin
Result:=True;
@ -414,8 +414,10 @@ begin
InvokeName:='InvokeJSNoResult';
end;
else
InvokeName:='InvokeJSObjectResult';;
RT:=ClassToPasIntfName(RT);
InvokeName:='InvokeJSObjectResult';
ReturnDef:=FindGlobalDef(aDef.ReturnType.TypeName);
if ReturnDef is TIDLInterfaceDefinition then
RT:=ClassToPasIntfName(RT);
end;
end;