From a9264cc608c42b92b3c19d4749b55e3af14d64c3 Mon Sep 17 00:00:00 2001 From: nickysn Date: Fri, 22 Jan 2021 15:29:34 +0000 Subject: [PATCH] - removed commented out method g_copyvalueparas git-svn-id: branches/wasm@48327 - --- compiler/wasm32/hlcgcpu.pas | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/compiler/wasm32/hlcgcpu.pas b/compiler/wasm32/hlcgcpu.pas index 459e539361..030084dac0 100644 --- a/compiler/wasm32/hlcgcpu.pas +++ b/compiler/wasm32/hlcgcpu.pas @@ -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 }