瀏覽代碼

+ handle wasm funcrefs in tgcpu.defToWasmBasic

Nikolay Nikolov 2 年之前
父節點
當前提交
60cde554fd
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      compiler/wasm32/tgcpu.pas

+ 3 - 1
compiler/wasm32/tgcpu.pas

@@ -105,7 +105,9 @@ unit tgcpu;
       if not Result then
       if not Result then
         Exit;
         Exit;
 
 
-      if is_pointer(def) then
+      if (def.typ=procvardef) and (po_wasm_funcref in tprocvardef(def).procoptions) then
+        wbt := wbt_funcref
+      else if is_pointer(def) then
         wbt := wbt_i32 // wasm32
         wbt := wbt_i32 // wasm32
       else if is_currency(def) then
       else if is_currency(def) then
         wbt := wbt_i64
         wbt := wbt_i64