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

* use the standard inherited ret_in_param for wasm32

Browse Source 
git-svn-id: branches/wasm@48073 -
This commit is contained in:
nickysn 2021-01-05 05:59:07 +00:00
parent d9b76dc00f
commit 020ce2b10c
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/wasm32/cpupara.pas
View File

@ -44,8 +44,6 @@ interface
function get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;override;
{ true if the location in paraloc can be reused as localloc }
function param_use_paraloc(const cgpara: tcgpara): boolean; override;
{ Returns true if the return value is actually a parameter pointer }
function ret_in_param(def:tdef;pd:tabstractprocdef):boolean;override;
function is_stack_paraloc(paraloc: pcgparalocation): boolean;override;
private
procedure create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist;
@ -193,15 +191,6 @@ implementation
result:=false;
end;
function tcpuparamanager.ret_in_param(def:tdef;pd:tabstractprocdef):boolean;
begin
{ not as efficient as returning in param for jvmimplicitpointertypes,
but in the latter case the routines are harder to use from Java
(especially for arrays), because the caller then manually has to
allocate the instance/array of the right size }
Result:=false;
end;
function tcpuparamanager.is_stack_paraloc(paraloc: pcgparalocation): boolean;
begin
{ all parameters are passed on the evaluation stack }