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

webidl: wasmjob: error on passing not supported array as argument

Browse Source
This commit is contained in:
mattias 2022-07-08 11:03:30 +02:00
parent e25594c48e
commit d9e156e90e
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,7 +404,7 @@ Var
Data: TPasDataWasmJob;
FN, RT, Suff, Args, ProcKind, Sig, aClassName, Code, InvokeName,
InvokeCode, ArgName, TryCode, VarSection, FinallyCode, LocalName,
WrapperFn: String;
WrapperFn, ArgTypeName: String;
Overloads: TFPObjectList;
I: Integer;
AddFuncBody: Boolean;
@ -494,15 +494,25 @@ begin
if Args<>'' then
Args:=Args+',';
ArgName:=GetName(ArgDef);
ArgType:=FindGlobalDef(ArgDef.ArgumentType.TypeName);
if (ArgType is TIDLFunctionDefinition) and (foCallBack in TIDLFunctionDefinition(ArgType).Options) then
if ArgDef.ArgumentType is TIDLSequenceTypeDefDefinition then
begin
LocalName:=CreateLocal('m');
VarSection:=VarSection+' '+LocalName+': '+JOB_JSValueTypeNames[jivkMethod]+';'+sLineBreak;
WrapperFn:='JOBCall'+GetName(TIDLFunctionDefinition(ArgType));
TryCode:=TryCode+' '+LocalName+':='+JOB_JSValueTypeNames[jivkMethod]+'.Create(TMethod('+ArgName+'),@'+WrapperFn+');'+sLineBreak;
FinallyCode:=FinallyCode+' '+LocalName+'.free;'+sLineBreak;
ArgName:=LocalName;
ArgTypeName:=TIDLSequenceTypeDefDefinition(ArgDef.ArgumentType).ElementType.TypeName;
ArgType:=FindGlobalDef(ArgTypeName);
writeln('TWebIDLToPasWasmJob.WriteFunctionDefinition sequence of ',ArgTypeName,' Element=',ArgType<>nil);
raise EConvertError.Create('not yet supported: passing an array of '+ArgTypeName+' as argument at '+GetDefPos(ArgDef));
end
else
begin
ArgType:=FindGlobalDef(ArgDef.ArgumentType.TypeName);
if (ArgType is TIDLFunctionDefinition) and (foCallBack in TIDLFunctionDefinition(ArgType).Options) then
begin
LocalName:=CreateLocal('m');
VarSection:=VarSection+' '+LocalName+': '+JOB_JSValueTypeNames[jivkMethod]+';'+sLineBreak;
WrapperFn:='JOBCall'+GetName(TIDLFunctionDefinition(ArgType));
TryCode:=TryCode+' '+LocalName+':='+JOB_JSValueTypeNames[jivkMethod]+'.Create(TMethod('+ArgName+'),@'+WrapperFn+');'+sLineBreak;
FinallyCode:=FinallyCode+' '+LocalName+'.free;'+sLineBreak;
ArgName:=LocalName;
end;
end;
Args:=Args+ArgName;
end;