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

- don't override push_high_param for WASM, use the generic 'high' handling

Browse Source 
git-svn-id: branches/wasm@48066 -
This commit is contained in:
nickysn 2021-01-04 16:56:22 +00:00
parent 29ee9a648d
commit e85e10a8f2
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/wasm32/cpupara.pas
View File

@ -36,7 +36,6 @@ interface
tcpuparamanager=class(TParaManager) tcpuparamanager=class(TParaManager)
function get_saved_registers_int(calloption: tproccalloption): tcpuregisterarray;override; function get_saved_registers_int(calloption: tproccalloption): tcpuregisterarray;override;
function push_high_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override;
function keep_para_array_range(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean; override; function keep_para_array_range(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean; override;
function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override; function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override;
function push_size(varspez: tvarspez; def: tdef; calloption: tproccalloption): longint;override; function push_size(varspez: tvarspez; def: tdef; calloption: tproccalloption): longint;override;
@ -70,17 +69,6 @@ implementation
result:=saved_regs; result:=saved_regs;
end; end;
function tcpuparamanager.push_high_param(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean;
begin
{ we don't need a separate high parameter, since all arrays in Java
have an implicit associated length }
if not is_open_array(def) and
not is_array_of_const(def) then
result:=inherited
else
result:=false;
end;
function tcpuparamanager.keep_para_array_range(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean; function tcpuparamanager.keep_para_array_range(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean;
begin begin