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

* fixed WebAssembly compilation error with -CR

Browse Source 
git-svn-id: trunk@48964 -
This commit is contained in:
nickysn 2021-03-14 15:03:58 +00:00
parent 2aab9b1f9b
commit 74854eee58
2 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/wasm32/hlcgcpu.pas
View File

@ -350,7 +350,10 @@ implementation
function thlcgwasm.a_call_reg(list: TAsmList; pd: tabstractprocdef; reg: tregister; const paras: array of pcgpara): tcgpara;
begin
a_load_reg_stack(list, ptrsinttype, reg);
current_asmdata.CurrAsmList.Concat(taicpu.op_functype(a_call_indirect,tcpuprocdef(pd).create_functype));
if pd.typ=procvardef then
current_asmdata.CurrAsmList.Concat(taicpu.op_functype(a_call_indirect,tcpuprocvardef(pd).create_functype))
else
current_asmdata.CurrAsmList.Concat(taicpu.op_functype(a_call_indirect,tcpuprocdef(pd).create_functype));
decstack(list,1);
result:=hlcg.get_call_result_cgpara(pd, nil);
end;

42
compiler/wasm32/symcpu.pas
View File

@ -94,6 +94,7 @@ type
{ tcpuprocvardef }
tcpuprocvardef = class(tprocvardef)
function create_functype: TWasmFuncType;
function is_pushleftright: boolean; override;
end;
tcpuprocvardefclass = class of tcpuprocvardef;
@ -220,26 +221,19 @@ implementation
****************************************************************************}
destructor tcpuprocdef.destroy;
begin
exprasmlist.free;
inherited destroy;
end;
function tcpuprocdef.create_functype: TWasmFuncType;
function create_functype_common(pd: tabstractprocdef): TWasmFuncType;
var
i: Integer;
prm: tcpuparavarsym;
bt: TWasmBasicType;
begin
init_paraloc_info(callerside);
pd.init_paraloc_info(callerside);
result:=TWasmFuncType.Create([],[]);
if Assigned(paras) and (paras.Count>0) then
if Assigned(pd.paras) and (pd.paras.Count>0) then
begin
for i:=0 to paras.Count-1 do
for i:=0 to pd.paras.Count-1 do
begin
prm := tcpuparavarsym(paras[i]);
prm := tcpuparavarsym(pd.paras[i]);
case prm.paraloc[callerside].Size of
OS_8..OS_32, OS_S8..OS_S32:
result.add_param(wbt_i32);
@ -260,10 +254,10 @@ implementation
end;
end;
end;
if Assigned(returndef) and (returndef.size>0) and
not paramanager.ret_in_param(returndef,self) then
if Assigned(pd.returndef) and (pd.returndef.size>0) and
not paramanager.ret_in_param(pd.returndef,pd) then
begin
if not defToWasmBasic(returndef,bt) then
if not defToWasmBasic(pd.returndef,bt) then
bt:=wbt_i32;
case bt of
wbt_i64:
@ -279,6 +273,19 @@ implementation
end;
destructor tcpuprocdef.destroy;
begin
exprasmlist.free;
inherited destroy;
end;
function tcpuprocdef.create_functype: TWasmFuncType;
begin
Result:=create_functype_common(self);
end;
function tcpuprocdef.is_pushleftright: boolean;
begin
Result:=true;
@ -289,6 +296,11 @@ implementation
tcpuprocvardef
****************************************************************************}
function tcpuprocvardef.create_functype: TWasmFuncType;
begin
Result:=create_functype_common(Self);
end;
function tcpuprocvardef.is_pushleftright: boolean;
begin
Result:=true;