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

* use bit_set_reg_reg also to clear single bits in thlcgobj.a_load_regconst_subsetref_intern

Browse Source
This commit is contained in:
florian 2024-03-26 14:46:01 +01:00
parent f4828950a2
commit 8971103a00
1 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/hlcgobj.pas
View File

@ -2257,19 +2257,32 @@ implementation
{ zero the bits we have to insert }
if (slopt<>SL_SETMAX) then
begin
maskreg:=getintregister(list,osuinttype);
if (target_info.endian = endian_big) then
if (slopt=SL_SETZERO) and (sref.bitlen=1) and (target_info.endian=endian_little) then
begin
a_load_const_reg(list,osuinttype,tcgint((aword(1) shl sref.bitlen)-1) shl (loadbitsize-sref.bitlen),maskreg);
a_op_reg_reg(list,OP_SHR,osuinttype,sref.bitindexreg,maskreg);
a_bit_set_reg_reg(list,false,osuinttype,osuinttype,sref.bitindexreg,valuereg);
{ store back to memory }
tmpreg:=getintregister(list,loadsize);
a_load_reg_reg(list,osuinttype,loadsize,valuereg,tmpreg);
a_load_reg_ref(list,loadsize,loadsize,tmpreg,sref.ref);
exit;
end
else
begin
a_load_const_reg(list,osuinttype,tcgint((aword(1) shl sref.bitlen)-1),maskreg);
a_op_reg_reg(list,OP_SHL,osuinttype,sref.bitindexreg,maskreg);
maskreg:=getintregister(list,osuinttype);
if (target_info.endian = endian_big) then
begin
a_load_const_reg(list,osuinttype,tcgint((aword(1) shl sref.bitlen)-1) shl (loadbitsize-sref.bitlen),maskreg);
a_op_reg_reg(list,OP_SHR,osuinttype,sref.bitindexreg,maskreg);
end
else
begin
a_load_const_reg(list,osuinttype,tcgint((aword(1) shl sref.bitlen)-1),maskreg);
a_op_reg_reg(list,OP_SHL,osuinttype,sref.bitindexreg,maskreg);
end;
a_op_reg_reg(list,OP_NOT,osuinttype,maskreg,maskreg);
a_op_reg_reg(list,OP_AND,osuinttype,maskreg,valuereg);
end;
a_op_reg_reg(list,OP_NOT,osuinttype,maskreg,maskreg);
a_op_reg_reg(list,OP_AND,osuinttype,maskreg,valuereg);
end;
{ insert the value }