paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 15:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed commented out method g_copyvalueparas

Browse Source 
git-svn-id: branches/wasm@48327 -
This commit is contained in:
nickysn 2021-01-22 15:29:34 +00:00
parent 3a0d84fde2
commit a9264cc608
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/wasm32/hlcgcpu.pas
View File

@ -219,8 +219,6 @@ uses
protected
procedure gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara); override;
//procedure g_copyvalueparas(p: TObject; arg: pointer); override;
procedure inittempvariables(list:TAsmList);override;
function g_call_system_proc_intern(list: TAsmList; pd: tprocdef; const paras: array of pcgpara; forceresdef: tdef): tcgpara; override;
@ -995,38 +993,6 @@ implementation
end;
//procedure thlcgwasm.g_copyvalueparas(p: TObject; arg: pointer);
// var
// list: tasmlist;
// tmpref: treference;
// begin
// { zero-extend < 32 bit primitive types (FPC can zero-extend when calling,
// but that doesn't help when we're called from Java code or indirectly
// as a procvar -- exceptions: widechar (Java-specific type) and ordinal
// types whose upper bound does not set the sign bit }
// if (tsym(p).typ=paravarsym) and
// (tparavarsym(p).varspez in [vs_value,vs_const]) and
// (tparavarsym(p).vardef.typ=orddef) and
// not is_pasbool(tparavarsym(p).vardef) and
// not is_widechar(tparavarsym(p).vardef) and
// (tparavarsym(p).vardef.size<4) and
// not is_signed(tparavarsym(p).vardef) and
// (torddef(tparavarsym(p).vardef).high>=(1 shl (tparavarsym(p).vardef.size*8-1))) then
// begin
// list:=TAsmList(arg);
// { store value in new location to keep Android verifier happy }
// tg.gethltemp(list,tparavarsym(p).vardef,tparavarsym(p).vardef.size,tt_persistent,tmpref);
// a_load_loc_stack(list,tparavarsym(p).vardef,tparavarsym(p).initialloc);
// a_op_const_stack(list,OP_AND,tparavarsym(p).vardef,(1 shl (tparavarsym(p).vardef.size*8))-1);
// a_load_stack_ref(list,tparavarsym(p).vardef,tmpref,prepare_stack_for_ref(list,tmpref,false));
// location_reset_ref(tparavarsym(p).localloc,LOC_REFERENCE,def_cgsize(tparavarsym(p).vardef),4,tmpref.volatility);
// tparavarsym(p).localloc.reference:=tmpref;
// end;
//
// inherited g_copyvalueparas(p, arg);
// end;
procedure thlcgwasm.inittempvariables(list: TAsmList);
begin
{ these are automatically initialised when allocated if necessary }