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

+ fast and branchless implementation of abs(int64) for i386

Browse Source 
git-svn-id: trunk@37169 -
This commit is contained in:
nickysn 2017-09-10 17:25:47 +00:00
parent 339560f4b9
commit aefa317474
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/i386/n386inl.pas
View File

@ -33,6 +33,7 @@ interface
public public
function first_sar: tnode; override; function first_sar: tnode; override;
procedure second_rox_sar; override; procedure second_rox_sar; override;
procedure second_abs_long; override;
end; end;
implementation implementation
@ -121,6 +122,27 @@ implementation
end; end;
procedure ti386inlinenode.second_abs_long;
begin
if is_64bitint(left.resultdef) then
begin
secondpass(left);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
location:=left.location;
location.register64.reglo:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
location.register64.reghi:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
cg64.a_load64_reg_reg(current_asmdata.CurrAsmList,left.location.register64,location.register64);
cg.a_op_const_reg(current_asmdata.CurrAsmList,OP_SAR,OS_32,31,left.location.register64.reghi);
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_XOR,OS_32,left.location.register64.reghi,location.register64.reglo);
cg.a_op_reg_reg(current_asmdata.CurrAsmList,OP_XOR,OS_32,left.location.register64.reghi,location.register64.reghi);
emit_reg_reg(A_SUB,S_L,left.location.register64.reghi,location.register64.reglo);
emit_reg_reg(A_SBB,S_L,left.location.register64.reghi,location.register64.reghi);
end
else
inherited second_abs_long;
end;
begin begin
cinlinenode:=ti386inlinenode; cinlinenode:=ti386inlinenode;
end. end.

4
compiler/options.pas
View File

@ -3401,9 +3401,9 @@ begin
{$endif i8086 or avr} {$endif i8086 or avr}
{ abs(long) is handled internally on all CPUs } { abs(long) is handled internally on all CPUs }
def_system_macro('FPC_HAS_INTERNAL_ABS_LONG'); def_system_macro('FPC_HAS_INTERNAL_ABS_LONG');
{$if defined(x86_64) or defined(powerpc64) or defined(cpuaarch64)} {$if defined(i386) or defined(x86_64) or defined(powerpc64) or defined(cpuaarch64)}
def_system_macro('FPC_HAS_INTERNAL_ABS_INT64'); def_system_macro('FPC_HAS_INTERNAL_ABS_INT64');
{$endif x86_64 or powerpc64 or aarch64} {$endif i386 or x86_64 or powerpc64 or aarch64}
def_system_macro('FPC_HAS_MANAGEMENT_OPERATORS'); def_system_macro('FPC_HAS_MANAGEMENT_OPERATORS');
def_system_macro('FPC_HAS_UNICODESTRING'); def_system_macro('FPC_HAS_UNICODESTRING');