paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 10:30:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added 'last' or 'first' to the internal promising wrapper name

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-13 12:15:46 +03:00
parent ed748a65b4
commit 9ea1f6de19
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symcreat.pas
View File

@ -970,7 +970,7 @@ implementation
str: ansistring;
wrapper_name: ansistring;
begin
wrapper_name:=pd.promising_wrapper_name;
wrapper_name:=pd.promising_wrapper_name(last);
if is_void(pd.returndef) then
str:='procedure '

9
compiler/wasm32/symcpu.pas
View File

@ -122,7 +122,7 @@ type
function create_functype: TWasmFuncType;
function is_pushleftright: boolean; override;
function suspending_wrapper_name: ansistring;
function promising_wrapper_name: ansistring;
function promising_wrapper_name(last:boolean): ansistring;
procedure add_promising_export(aextname: ansistring;last:boolean);
end;
tcpuprocdefclass = class of tcpuprocdef;
@ -382,9 +382,12 @@ implementation
end;
function tcpuprocdef.promising_wrapper_name: ansistring;
function tcpuprocdef.promising_wrapper_name(last: boolean): ansistring;
begin
Result:='__fpc_wasm_promising_'+procsym.realname;
if last then
Result:='__fpc_wasm_promising_last_'+procsym.realname
else
Result:='__fpc_wasm_promising_first_'+procsym.realname;
end;