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

+ also support funcref parameters in create_functype_common

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-05 02:53:44 +03:00
parent bebe53ef9f
commit ad69c6e1b5
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/symcpu.pas
View File

@ -239,7 +239,9 @@ implementation
for i:=0 to pd.paras.Count-1 do for i:=0 to pd.paras.Count-1 do
begin begin
prm := tcpuparavarsym(pd.paras[i]); prm := tcpuparavarsym(pd.paras[i]);
case prm.paraloc[callerside].Size of if (prm.vardef.typ=procvardef) and (po_wasm_funcref in tprocvardef(prm.vardef).procoptions) then
result.add_param(wbt_funcref)
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);
OS_64, OS_S64: OS_64, OS_S64: