webidl: fixed job call

packages/webidl/src/webidltopas.pp

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

packages/webidl/src/webidltowasmjob.pp

@@ -650,7 +650,7 @@ begin
   ArgNames:=TStringList.Create;
   try
     // 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('h');
     VarSection:='';