paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 04:19:22 +02: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 committed by Pierre Muller
parent 8a6ffe417f
commit 5a0267d5da
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; new_wrapper_pd: tprocdef;
begin begin
new_wrapper_pd:=implement_wasm_promising_wrapper(pd,false); 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; end;
{$endif wasm} {$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 { generated assembler code; used by WebAssembly backend so it can afterwards
easily write out all methods grouped per class } easily write out all methods grouped per class }
exprasmlist : TAsmList; exprasmlist : TAsmList;
promising_export_name: string; promising_first_export_name: string;
destructor destroy; override; destructor destroy; override;
function create_functype: TWasmFuncType; function create_functype: TWasmFuncType;
function is_pushleftright: boolean; override; function is_pushleftright: boolean; override;
@ -396,7 +396,7 @@ implementation
if (synthetickind<>tsk_none) and (synthetickind<>tsk_wasm_promising) then if (synthetickind<>tsk_none) and (synthetickind<>tsk_wasm_promising) then
internalerror(2023061301); internalerror(2023061301);
synthetickind:=tsk_wasm_promising; synthetickind:=tsk_wasm_promising;
promising_export_name:=aextname; promising_first_export_name:=aextname;
end; end;