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

+ introduced implement_wasm_promising_wrapper

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-13 12:10:54 +03:00
parent c67bcf0032
commit 2eb3f5f0b8
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symcreat.pas
View File

@ -965,11 +965,10 @@ implementation
exclude(pd.procoptions,po_external); exclude(pd.procoptions,po_external);
end; end;
procedure implement_wasm_promising(pd: tcpuprocdef); function implement_wasm_promising_wrapper(pd: tcpuprocdef):tprocdef;
var var
str: ansistring; str: ansistring;
wrapper_name: ansistring; wrapper_name: ansistring;
new_wrapper_pd: tprocdef;
begin begin
wrapper_name:=pd.promising_wrapper_name; wrapper_name:=pd.promising_wrapper_name;
@ -992,7 +991,14 @@ implementation
if str[Length(str)]=',' then if str[Length(str)]=',' then
delete(str,Length(str),1); delete(str,Length(str),1);
str:=str+'); end;'; str:=str+'); end;';
str_parse_method_impl(str,nil,false,new_wrapper_pd); str_parse_method_impl(str,nil,false,result);
end;
procedure implement_wasm_promising(pd: tcpuprocdef);
var
new_wrapper_pd: tprocdef;
begin
new_wrapper_pd:=implement_wasm_promising_wrapper(pd);
current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_export_name,new_wrapper_pd.mangledname,ie_Func)); current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_export_name,new_wrapper_pd.mangledname,ie_Func));
end; end;
{$endif wasm} {$endif wasm}