paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ handle wasm funcrefs in tgcpu.defToWasmBasic

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-05 02:44:34 +03:00
parent 33fb887479
commit 60cde554fd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm32/tgcpu.pas
View File

@ -105,7 +105,9 @@ unit tgcpu;
if not Result then
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
else if is_currency(def) then
wbt := wbt_i64