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

+ generic implementation of abs(<int64>)

Browse Source
This commit is contained in:
florian 2024-03-29 15:30:18 +01:00
parent 9a32c00070
commit 8132ccd42b
1 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ncginl.pas
View File

@ -757,10 +757,29 @@ implementation
procedure tcginlinenode.second_abs_long; procedure tcginlinenode.second_abs_long;
var var
tempreg1, tempreg2: tregister; tempreg1, tempreg2: tregister;
{$if not(defined(cpu64bitalu))}
tempreg64: tregister64;
{$endif not(defined(cpu64bitalu))}
begin begin
secondpass(left); secondpass(left);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true); hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
location:=left.location; location:=left.location;
{$if not(defined(cpu64bitalu))}
if is_64bitint(left.resultdef) then
begin
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);
tempreg64.reghi:=left.location.register64.reghi;
tempreg64.reglo:=left.location.register64.reghi;
cg64.a_op64_reg_reg(current_asmdata.CurrAsmList,OP_XOR,OS_64,tempreg64,location.register64);
cg64.a_op64_reg_reg_reg(current_asmdata.CurrAsmList,OP_SUB,OS_64,tempreg64,location.register64,location.register64);
end
else
{$endif not(defined(cpu64bitalu))}
begin
location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,left.resultdef); location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,left.resultdef);
tempreg1:=hlcg.getintregister(current_asmdata.CurrAsmList,left.resultdef); tempreg1:=hlcg.getintregister(current_asmdata.CurrAsmList,left.resultdef);
@ -770,6 +789,7 @@ implementation
hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_XOR,left.resultdef,left.location.register,tempreg1,tempreg2); hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,OP_XOR,left.resultdef,left.location.register,tempreg1,tempreg2);
hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmlist,OP_SUB,left.resultdef,tempreg1,tempreg2,location.register); hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmlist,OP_SUB,left.resultdef,tempreg1,tempreg2,location.register);
end; end;
end;
{***************************************************************************** {*****************************************************************************