Procházet zdrojové kódy

* fixed bug, introduced in 6ff566350cbc2ecf8615cae6cc6792939a288ec8, due to
missing parenthesis

Nikolay Nikolov před 2 roky
rodič
revize
3d55ac9d09
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      compiler/wasm32/nwasmcal.pas

+ 2 - 2
compiler/wasm32/nwasmcal.pas

@@ -70,8 +70,8 @@ implementation
           begin
           begin
             pvs:=tparavarsym(procdefinition.paras[paranr]);
             pvs:=tparavarsym(procdefinition.paras[paranr]);
             if is_wasm_reference_type(p.left.resultdef) and
             if is_wasm_reference_type(p.left.resultdef) and
-              (pvs.varspez in [vs_var,vs_constref]) or
-               ((pvs.varspez=vs_const) and (pvs.vardef.typ=formaldef)) then
+              ((pvs.varspez in [vs_var,vs_constref,vs_out]) or
+               ((pvs.varspez=vs_const) and (pvs.vardef.typ=formaldef))) then
               CGMessage(parser_e_wasm_ref_types_can_only_be_passed_by_value);
               CGMessage(parser_e_wasm_ref_types_can_only_be_passed_by_value);
             Inc(paranr);
             Inc(paranr);
             p:=tcallparanode(tcallparanode(p).right);
             p:=tcallparanode(tcallparanode(p).right);