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

+ added last:boolean parameter to implement_wasm_promising_wrapper

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-13 12:14:09 +03:00
parent 2eb3f5f0b8
commit ed748a65b4
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/symcreat.pas
View File

@ -965,7 +965,7 @@ implementation
exclude(pd.procoptions,po_external);
end;
function implement_wasm_promising_wrapper(pd: tcpuprocdef):tprocdef;
function implement_wasm_promising_wrapper(pd: tcpuprocdef;last:boolean):tprocdef;
var
str: ansistring;
wrapper_name: ansistring;
@ -976,10 +976,21 @@ implementation
str:='procedure '
else
str:='function ';
str:=str+wrapper_name+'(__fpc_wasm_susp: WasmExternRef;';
addvisibleparameterdeclarations(str,pd);
if str[Length(str)]=';' then
delete(str,Length(str),1);
str:=str+wrapper_name+'(';
if last then
begin
addvisibleparameterdeclarations(str,pd);
if str[Length(str)]<>'(' then
str:=str+';';
str:=str+'__fpc_wasm_susp: WasmExternRef';
end
else
begin
str:=str+'__fpc_wasm_susp: WasmExternRef;';
addvisibleparameterdeclarations(str,pd);
if str[Length(str)]=';' then
delete(str,Length(str),1);
end;
str:=str+')';
if not is_void(pd.returndef) then
str:=str+': '+pd.returndef.fulltypename;
@ -998,7 +1009,7 @@ implementation
var
new_wrapper_pd: tprocdef;
begin
new_wrapper_pd:=implement_wasm_promising_wrapper(pd);
new_wrapper_pd:=implement_wasm_promising_wrapper(pd,false);
current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_export_name,new_wrapper_pd.mangledname,ie_Func));
end;
{$endif wasm}