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

* assert that any exported promising function is not synthetic

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-13 11:44:10 +03:00 committed by Pierre Muller
parent aa94e9cd21
commit be4fd4c012
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/t_wasi.pas
View File

@ -252,6 +252,8 @@ begin
pd:=tcpuprocdef(tprocsym(hp.sym).ProcdefList[0]);
if eo_promising_first in hp.options then
begin
if (pd.synthetickind<>tsk_none) and (pd.synthetickind<>tsk_wasm_promising) then
internalerror(2023061301);
pd.synthetickind:=tsk_wasm_promising;
pd.promising_export_name:=hp.name^;
end