paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 16:09:08 +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

12
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,6 +494,15 @@ begin
if Args<>'' then
Args:=Args+',';
ArgName:=GetName(ArgDef);
if ArgDef.ArgumentType is TIDLSequenceTypeDefDefinition then
begin
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
@ -504,6 +513,7 @@ begin
FinallyCode:=FinallyCode+' '+LocalName+'.free;'+sLineBreak;
ArgName:=LocalName;
end;
end;
Args:=Args+ArgName;
end;
Args:=',['+Args+']';