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

* use the bts instruction on x86 if possible, the reg,reg variant is better than a mov/shl/or sequence

Browse Source
This commit is contained in:
florian 2022-09-05 23:22:53 +02:00
parent 645fe8a0c3
commit f097d1ea35
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/x86/nx86add.pas
View File

@ -53,6 +53,7 @@ unit nx86add;
procedure second_addfloat;override;
{$ifndef i8086}
procedure second_addsmallset;override;
procedure second_addsmallsetelement;override;
{$endif not i8086}
procedure second_add64bit;override;
procedure second_cmpfloat;override;
@ -638,6 +639,49 @@ unit nx86add;
if opsize<>int_cgsize(resultdef.size) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,location,opdef,cgsize_orddef(int_cgsize(resultdef.size)),false);
end;
procedure tx86addnode.second_addsmallsetelement;
var
setbase, mask: aint;
begin
if resultdef.size=1 then
inherited second_addsmallsetelement
else
begin
if nodetype<>addn then
internalerror(2022090502);
{ no range support for smallsets }
if assigned(tsetelementnode(right).right) then
internalerror(2022090501);
pass_left_right;
{ setelementn is a special case, it must be on right }
if (nf_swapped in flags) and
(left.nodetype=setelementn) then
swapleftright;
force_reg_left_right(false,false);
set_result_location_reg;
setbase:=tsetdef(left.resultdef).setbase;
if (right.location.loc = LOC_CONSTANT) then
begin
mask:=aint(1 shl (right.location.value-setbase));
hlcg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_OR,resultdef,
mask,left.location.register,location.register);
end
else
begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,right.location,right.resultdef,resultdef,true);
register_maybe_adjust_setbase(current_asmdata.CurrAsmList,resultdef,right.location,setbase);
if left.location.loc <> LOC_CONSTANT then
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,
left.location.register,location.register)
else
hlcg.a_load_const_reg(current_asmdata.CurrAsmList,resultdef,
left.location.value,location.register);
emit_reg_reg(A_BTS,TCGSize2Opsize[def_cgsize(resultdef)],right.location.register,location.register);
end;
end;
end;
{$endif not i8086}