diff --git a/compiler/export.pas b/compiler/export.pas index 9294572b51..ca0728d975 100644 --- a/compiler/export.pas +++ b/compiler/export.pas @@ -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; diff --git a/compiler/pexports.pas b/compiler/pexports.pas index 8edd99fbb9..ee818f1d65 100644 --- a/compiler/pexports.pas +++ b/compiler/pexports.pas @@ -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); diff --git a/compiler/systems/t_wasi.pas b/compiler/systems/t_wasi.pas index c43887ca9c..14daa28107 100644 --- a/compiler/systems/t_wasi.pas +++ b/compiler/systems/t_wasi.pas @@ -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^;