瀏覽代碼

+ support externref in defToWasmBasic

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

+ 2 - 0
compiler/wasm32/tgcpu.pas

@@ -107,6 +107,8 @@ unit tgcpu;
 
       if (def.typ=procvardef) and (po_wasm_funcref in tprocvardef(def).procoptions) then
         wbt := wbt_funcref
+      else if (def.typ=pointerdef) and (tcpupointerdef(def).is_wasm_externref) then
+        wbt := wbt_externref
       else if is_pointer(def) then
         wbt := wbt_i32 // wasm32
       else if is_currency(def) then