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

* tcpuprocdef.promising_export_name renamed promising_first_export_name

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-16 10:50:35 +03:00
parent 9ea1f6de19
commit 9d893b5d0d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symcreat.pas
View File

@ -1010,7 +1010,7 @@ implementation
new_wrapper_pd: tprocdef;
begin
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));
current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_first_export_name,new_wrapper_pd.mangledname,ie_Func));
end;
{$endif wasm}

4
compiler/wasm32/symcpu.pas
View File

@ -117,7 +117,7 @@ type
{ generated assembler code; used by WebAssembly backend so it can afterwards
easily write out all methods grouped per class }
exprasmlist : TAsmList;
promising_export_name: string;
promising_first_export_name: string;
destructor destroy; override;
function create_functype: TWasmFuncType;
function is_pushleftright: boolean; override;
@ -396,7 +396,7 @@ implementation
if (synthetickind<>tsk_none) and (synthetickind<>tsk_wasm_promising) then
internalerror(2023061301);
synthetickind:=tsk_wasm_promising;
promising_export_name:=aextname;
promising_first_export_name:=aextname;
end;