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

+ Aarch64: directly inline code for frac(...)

Browse Source 
git-svn-id: trunk@49261 -
This commit is contained in:
florian 2021-04-25 09:26:47 +00:00
parent cd3570caf1
commit 5557dbedf2
2 changed files with 47 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
compiler/aarch64/ncpuinl.pas
View File

@ -36,6 +36,7 @@ interface
function first_round_real: tnode; override;
function first_trunc_real: tnode; override;
function first_int_real: tnode; override;
function first_frac_real: tnode; override;
function first_fma : tnode; override;
procedure second_abs_real; override;
procedure second_sqr_real; override;
@ -44,6 +45,7 @@ interface
procedure second_round_real; override;
procedure second_trunc_real; override;
procedure second_int_real; override;
procedure second_frac_real; override;
procedure second_get_frame; override;
procedure second_fma; override;
procedure second_prefetch; override;
@ -112,21 +114,29 @@ implementation
function taarch64inlinenode.first_int_real : tnode;
begin
expectloc:=LOC_MMREGISTER;
result:=nil;
expectloc:=LOC_MMREGISTER;
result:=nil;
end;
function taarch64inlinenode.first_fma : tnode;
begin
if ((is_double(resultdef)) or (is_single(resultdef))) then
begin
expectloc:=LOC_MMREGISTER;
Result:=nil;
end
else
Result:=inherited first_fma;
end;
function taarch64inlinenode.first_frac_real : tnode;
begin
expectloc:=LOC_MMREGISTER;
result:=nil;
end;
function taarch64inlinenode.first_fma : tnode;
begin
if ((is_double(resultdef)) or (is_single(resultdef))) then
begin
expectloc:=LOC_MMREGISTER;
Result:=nil;
end
else
Result:=inherited first_fma;
end;
procedure taarch64inlinenode.second_abs_real;
begin
@ -209,6 +219,20 @@ implementation
end;
procedure taarch64inlinenode.second_frac_real;
var
hreg: tregister;
begin
secondpass(left);
hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
location_reset(location,LOC_MMREGISTER,def_cgsize(resultdef));
location.register:=cg.getmmregister(current_asmdata.CurrAsmList,location.size);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_FRINTZ,location.register,left.location.register));
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_FSUB,location.register,left.location.register,location.register));
cg.maybe_check_for_fpu_exception(current_asmdata.CurrAsmList);
end;
procedure taarch64inlinenode.second_get_frame;
begin
location_reset(location,LOC_CREGISTER,OS_ADDR);

11
rtl/aarch64/math.inc
View File

@ -72,6 +72,17 @@
end;
{$endif FPC_SYSTEM_HAS_TRUNC}
{$ifndef VER3_2}
{$ifndef FPC_SYSTEM_HAS_FRAC}
{$define FPC_SYSTEM_HAS_FRAC}
function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
begin
{ Function is handled internal in the compiler }
runerror(207);
result:=0;
end;
{$endif FPC_SYSTEM_HAS_FRAC}
{$endif VER3_2}
{$ifndef FPC_SYSTEM_HAS_ROUND}
{$define FPC_SYSTEM_HAS_ROUND}