paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ handle externref parameters in create_functype_common

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-05 04:37:54 +03:00
parent a778fb2eaa
commit dd09bf64b3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/symcpu.pas
View File

@ -291,6 +291,8 @@ implementation
prm := tcpuparavarsym(pd.paras[i]); prm := tcpuparavarsym(pd.paras[i]);
if (prm.vardef.typ=procvardef) and (po_wasm_funcref in tprocvardef(prm.vardef).procoptions) then if (prm.vardef.typ=procvardef) and (po_wasm_funcref in tprocvardef(prm.vardef).procoptions) then
result.add_param(wbt_funcref) result.add_param(wbt_funcref)
else if (prm.vardef.typ=pointerdef) and (tcpupointerdef(prm.vardef).is_wasm_externref) then
result.add_param(wbt_externref)
else case prm.paraloc[callerside].Size of else case prm.paraloc[callerside].Size of
OS_8..OS_32, OS_S8..OS_S32: OS_8..OS_32, OS_S8..OS_S32:
result.add_param(wbt_i32); result.add_param(wbt_i32);