Prechádzať zdrojové kódy

* assert that any exported promising function is not synthetic

Nikolay Nikolov 2 rokov pred
rodič
commit
601c8f9c8b
1 zmenil súbory, kde vykonal 2 pridanie a 0 odobranie
  1. 2 0
      compiler/systems/t_wasi.pas

+ 2 - 0
compiler/systems/t_wasi.pas

@@ -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