paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 15:20:32 +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; VarSection:=VarSection+' '+ArgName+': '+ArgTypeName+';'+sLineBreak;
// get: ArgName:=H.GetX; // get: ArgName:=H.GetX;
FetchArgs:=FetchArgs+' '+ArgName+':=H.'+GetFunc+';'; FetchArgs:=FetchArgs+' '+ArgName+':=H.'+GetFunc+';'+sLineBreak;
// pass: ArgName // pass: ArgName
if Params<>'' then if Params<>'' then
@ -729,7 +729,7 @@ begin
Code:=Code+'begin'+sLineBreak; Code:=Code+'begin'+sLineBreak;
if FetchArgs<>'' then if FetchArgs<>'' then
Code:=Code+FetchArgs+sLineBreak; Code:=Code+FetchArgs;
Call:=FuncName+'(aMethod)('+Params+')'; Call:=FuncName+'(aMethod)('+Params+')';
case ResolvedReturnTypeName of case ResolvedReturnTypeName of