瀏覽代碼

* fixed creating suspended wrappers for functions without parameters

Nikolay Nikolov 2 年之前
父節點
當前提交
80c8575636
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/symcreat.pas

+ 2 - 0
compiler/symcreat.pas

@@ -922,6 +922,8 @@ implementation
         str:='function ';
       str:=str+wrapper_name+'(__fpc_wasm_susp: WasmExternRef;';
       addvisibleparameterdeclarations(str,pd);
+      if str[Length(str)]=';' then
+        delete(str,Length(str),1);
       str:=str+'): double; external '''+pd.import_dll^+ ''' name '''+pd.import_name^+''';';
       str_parse_method_impl(str,nil,false);