paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 13:37:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused parameters from g_adjust_stack_after_call for WebAssembly

Browse Source 
git-svn-id: branches/wasm@48259 -
This commit is contained in:
nickysn 2021-01-21 04:41:48 +00:00
parent b3eca0e4f9
commit 2bdd089645
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/wasm32/hlcgcpu.pas
View File

@ -199,7 +199,7 @@ uses
{ adjust the stack height after a call based on the specified number of { adjust the stack height after a call based on the specified number of
slots used for parameters and the provided resultdef } slots used for parameters and the provided resultdef }
procedure g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef; paraheight: longint; forceresdef: tdef); procedure g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef);
property maxevalstackheight: longint read fmaxevalstackheight; property maxevalstackheight: longint read fmaxevalstackheight;
@ -1078,7 +1078,7 @@ implementation
begin begin
result:=inherited; result:=inherited;
pd.init_paraloc_info(callerside); pd.init_paraloc_info(callerside);
g_adjust_stack_after_call(list,pd,pd.callerargareasize,forceresdef); g_adjust_stack_after_call(list,pd);
end; end;
@ -1947,7 +1947,7 @@ implementation
end; end;
procedure thlcgwasm.g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef; paraheight: longint; forceresdef: tdef); procedure thlcgwasm.g_adjust_stack_after_call(list: TAsmList; pd: tabstractprocdef);
var var
totalremovesize: longint; totalremovesize: longint;
realresdef: tdef; realresdef: tdef;

2
compiler/wasm32/nwasmcal.pas
View File

@ -55,7 +55,7 @@ implementation
procedure twasmcallnode.extra_post_call_code; procedure twasmcallnode.extra_post_call_code;
begin begin
thlcgwasm(hlcg).g_adjust_stack_after_call(current_asmdata.CurrAsmList,procdefinition,pushedparasize,typedef); thlcgwasm(hlcg).g_adjust_stack_after_call(current_asmdata.CurrAsmList,procdefinition);
end; end;
procedure twasmcallnode.do_release_unused_return_value; procedure twasmcallnode.do_release_unused_return_value;