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

+ optimize <signed> mod <power of 2> for x86-64 as well

Browse Source 
git-svn-id: trunk@45854 -
This commit is contained in:
florian 2020-07-25 16:42:19 +00:00
parent a5bad32b7c
commit f6e6b807d5
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86/nx86mat.pas
View File

@ -643,6 +643,21 @@ interface
end;
end;
end
else if (nodetype=modn) and (right.nodetype=ordconstn) and (is_signed(left.resultdef)) and isabspowerof2(tordconstnode(right).value,power) then
begin
hreg2:=cg.getintregister(current_asmdata.CurrAsmList,cgsize);
if power=1 then
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SHR,cgsize,resultdef.size*8-power,hreg1,hreg2)
else
begin
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SAR,cgsize,resultdef.size*8-1,hreg1,hreg2);
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SHR,cgsize,resultdef.size*8-power,hreg2,hreg2);
end;
emit_reg_reg(A_ADD,opsize,hreg1,hreg2);
emit_const_reg(A_AND,opsize,not((aint(1) shl power)-1),hreg2);
emit_reg_reg(A_SUB,opsize,hreg2,hreg1);
location.register:=hreg1;
end
else
begin
DefaultDiv: