paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

webidl: wasmjob: nicer callback code

Browse Source
This commit is contained in:
mattias 2022-07-28 02:23:45 +02:00
parent becbd5411c
commit 7232e3ac44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -716,7 +716,7 @@ begin
VarSection:=VarSection+' '+ArgName+': '+ArgTypeName+';'+sLineBreak;
// get: ArgName:=H.GetX;
FetchArgs:=FetchArgs+' '+ArgName+':=H.'+GetFunc+';';
FetchArgs:=FetchArgs+' '+ArgName+':=H.'+GetFunc+';'+sLineBreak;
// pass: ArgName
if Params<>'' then
@ -729,7 +729,7 @@ begin
Code:=Code+'begin'+sLineBreak;
if FetchArgs<>'' then
Code:=Code+FetchArgs+sLineBreak;
Code:=Code+FetchArgs;
Call:=FuncName+'(aMethod)('+Params+')';
case ResolvedReturnTypeName of