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

* eo_promising renamed eo_promising_first

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-13 11:42:15 +03:00
parent 4d62764fa3
commit c6b059ede6
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/export.pas
View File

@ -38,7 +38,7 @@ type
eo_index,
eo_name,
eo_no_sym_name, { don't try to use another mangled name if symbol is known }
eo_promising
eo_promising_first
);
texportoptions=set of texportoption;

2
compiler/pexports.pas
View File

@ -179,7 +179,7 @@ implementation
if try_to_consume(_PROMISING) then
begin
if target_info.system in systems_wasm then
include(options,eo_promising);
include(options,eo_promising_first);
end;
if (DefString<>'') and UseDeffileForExports then
DefFile.AddExport(DefString);

2
compiler/systems/t_wasi.pas
View File

@ -250,7 +250,7 @@ var
pd: tcpuprocdef;
begin
pd:=tcpuprocdef(tprocsym(hp.sym).ProcdefList[0]);
if eo_promising in hp.options then
if eo_promising_first in hp.options then
begin
pd.synthetickind:=tsk_wasm_promising;
pd.promising_export_name:=hp.name^;