From 3bf5b0c395c0cc613b76bc7424ab7cd7386f7ee1 Mon Sep 17 00:00:00 2001 From: Nikolay Nikolov Date: Thu, 16 Sep 2021 15:15:39 +0300 Subject: [PATCH] - avoid useless typecasts for accessing members in self in thlcgwasm.a_load_subsetref_regs_index --- compiler/wasm32/hlcgcpu.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/wasm32/hlcgcpu.pas b/compiler/wasm32/hlcgcpu.pas index 82b0af717f..3cebb0e7d9 100644 --- a/compiler/wasm32/hlcgcpu.pas +++ b/compiler/wasm32/hlcgcpu.pas @@ -1188,8 +1188,8 @@ implementation a_cmp_const_reg_stack(list,osuinttype,OC_A,loadbitsize-sref.bitlen,sref.bitindexreg); current_asmdata.CurrAsmList.concat(taicpu.op_none(a_if)); - thlcgwasm(hlcg).incblock; - thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1); + incblock; + decstack(current_asmdata.CurrAsmList,1); { Y-x = -(Y-x) } a_op_const_reg_reg(list,OP_SUB,osuinttype,loadbitsize,sref.bitindexreg,tmpreg); @@ -1204,7 +1204,7 @@ implementation a_op_reg_reg(list,OP_OR,osuinttype,extra_value_reg,valuereg); current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_if)); - thlcgwasm(hlcg).decblock; + decblock; { sign extend or mask other bits } if is_signed(subsetsize) then