paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

webidl: fixed job call

Browse Source
This commit is contained in:
mattias 2022-07-26 20:31:28 +02:00
parent 1072e68498
commit 2c6b824176
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/webidl/src/webidltopas.pp
View File

@ -1259,6 +1259,8 @@ function TBaseWebIDLToPas.CloneArgument(Arg: TIDLArgumentDefinition
begin begin
Result:=Arg.Clone(nil); Result:=Arg.Clone(nil);
ResolveTypeDef(Result); ResolveTypeDef(Result);
if Arg.Data<>nil then
Result.Data:=ClonePasData(TPasData(Arg.Data),Result);
end; end;
procedure TBaseWebIDLToPas.AddOverloads(aList: TFPObjectlist; procedure TBaseWebIDLToPas.AddOverloads(aList: TFPObjectlist;

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

@ -650,7 +650,7 @@ begin
ArgNames:=TStringList.Create; ArgNames:=TStringList.Create;
try try
// create wrapper callback // create wrapper callback
Code:='function JOBCall'+FuncName+'(const aMethod: TMethod; const H: TJOBCallbackHelper): PByte;'+sLineBreak; Code:='function JOBCall'+FuncName+'(const aMethod: TMethod; var H: TJOBCallbackHelper): PByte;'+sLineBreak;
ArgNames.Add('aMethod'); ArgNames.Add('aMethod');
ArgNames.Add('h'); ArgNames.Add('h');
VarSection:=''; VarSection:='';