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

- avoid useless typecasts for accessing members in self in thlcgwasm.a_load_subsetref_regs_index

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-16 15:15:39 +03:00
parent 4120825f50
commit 3bf5b0c395
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/wasm32/hlcgcpu.pas
View File

@ -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