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

* thlcgobj.a_load_regconst_subsetreg_intern takes care if the whole register is modified

Browse Source 
git-svn-id: trunk@26799 -
This commit is contained in:
florian 2014-02-16 15:13:43 +00:00
parent 07579cf0b7
commit 150363c09e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/hlcgobj.pas
View File

@ -2220,7 +2220,10 @@ implementation
if (slopt<>SL_REGNOSRCMASK) then
a_op_const_reg(list,OP_AND,subsetregdef,tcgint(not(bitmask)),tmpreg);
end;
if (slopt<>SL_SETMAX) then
if (slopt<>SL_SETMAX) and
{ the "and" is not needed if the whole register is modified (except for SL_SETZERO),
because later on we do a move in this case instead of an or }
((sreg.bitlen<>AIntBits) or (slopt=SL_SETZERO)) then
a_op_const_reg(list,OP_AND,subsetregdef,tcgint(bitmask),sreg.subsetreg);
case slopt of
@ -2232,8 +2235,11 @@ implementation
sreg.subsetreg)
else
a_load_const_reg(list,subsetregdef,-1,sreg.subsetreg);
{ if the whole register is modified, no "or" is needed }
else if sreg.bitlen=AIntBits then
a_load_reg_reg(list,subsetregdef,subsetregdef,tmpreg,sreg.subsetreg)
else
a_op_reg_reg(list,OP_OR,subsetregdef,tmpreg,sreg.subsetreg);
a_op_reg_reg(list,OP_OR,subsetregdef,tmpreg,sreg.subsetreg)
end;
end;