paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 16:45:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improved the optimization of signed modulus by power-of-2, so it uses less

Browse Source 
operations. Previously generated code:
    sign:=sar(left,sizeof(left)*8-1);
    result:=((((left xor sign)-sign) and right) xor sign)-sign;
  New code:
    mask:=sar(left,sizeof(left)*8-1) and ((1 shl power)-1);
    result:=((left+mask) and right)-mask;

git-svn-id: trunk@36847 -
This commit is contained in:
nickysn 2017-08-04 16:20:50 +00:00
parent 8ffc035a86
commit ee79ff3635
1 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/nmat.pas
View File

@ -582,28 +582,33 @@ implementation
addstatement(statements,resulttemp);
addstatement(statements,temp);
addstatement(statements,cassignmentnode.create(ctemprefnode.create(temp),left));
{ sign:=sar(left,sizeof(left)*8-1); }
addstatement(statements,cassignmentnode.create(ctemprefnode.create(resulttemp),
cinlinenode.create(in_sar_x_y,false,
ccallparanode.create(cordconstnode.create(shiftval,u8inttype,false),
ccallparanode.create(ctemprefnode.create(temp),nil)
)
)));
{ mask:=sar(left,sizeof(left)*8-1) and ((1 shl power)-1); }
if power=1 then
masknode:=
cshlshrnode.create(shrn,
ctemprefnode.create(temp),
cordconstnode.create(shiftval,u8inttype,false)
)
else
masknode:=
caddnode.create(andn,
cinlinenode.create(in_sar_x_y,false,
ccallparanode.create(cordconstnode.create(shiftval,u8inttype,false),
ccallparanode.create(ctemprefnode.create(temp),nil))
),
cordconstnode.create(tcgint((qword(1) shl power)-1),
right.resultdef,false)
);
addstatement(statements,cassignmentnode.create(ctemprefnode.create(resulttemp),masknode));
{ result:=((((left xor sign)-sign) and right) xor sign)-sign; }
{ result:=((left+mask) and right)-mask; }
addstatement(statements,cassignmentnode.create(ctemprefnode.create(resulttemp),
caddnode.create(subn,
caddnode.create(xorn,
caddnode.create(andn,
right,
caddnode.create(subn,
caddnode.create(xorn,
ctemprefnode.create(resulttemp),
ctemprefnode.create(temp)),
ctemprefnode.create(resulttemp))
),
ctemprefnode.create(resulttemp)
),
caddnode.create(andn,
right,
caddnode.create(addn,
ctemprefnode.create(temp),
ctemprefnode.create(resulttemp))),
ctemprefnode.create(resulttemp))
));