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

* drop unused return values from the stack

Browse Source 
git-svn-id: branches/wasm@48036 -
This commit is contained in:
nickysn 2021-01-04 12:44:11 +00:00
parent 0cdd7d4d22
commit f86665b97f
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/wasm32/nwasmcal.pas
View File

@ -39,6 +39,8 @@ interface
{ twasmcallnode } { twasmcallnode }
twasmcallnode = class(tcgcallnode) twasmcallnode = class(tcgcallnode)
protected
procedure do_release_unused_return_value; override;
procedure set_result_location(realresdef: tstoreddef); override; procedure set_result_location(realresdef: tstoreddef); override;
end; end;
@ -50,6 +52,15 @@ implementation
{ twasmcallnode } { twasmcallnode }
procedure twasmcallnode.do_release_unused_return_value;
begin
if is_void(resultdef) then
exit;
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_drop));
// todo: decstack
//thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
end;
procedure twasmcallnode.set_result_location(realresdef: tstoreddef); procedure twasmcallnode.set_result_location(realresdef: tstoreddef);
begin begin
// default implementation is placing the return value on LOC_REGISTER. // default implementation is placing the return value on LOC_REGISTER.