paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 13:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* second_abs: don't supply a separate 64 bit code path for high level cpu targets

Browse Source
This commit is contained in:
florian 2024-04-07 22:48:42 +02:00
parent 2e65a5d458
commit 80750f7591
1 changed files with 4 additions and 4 deletions

8
compiler/ncginl.pas
View File

@ -757,15 +757,15 @@ implementation
procedure tcginlinenode.second_abs_long;
var
tempreg1, tempreg2: tregister;
{$if not(defined(cpu64bitalu))}
{$if not(defined(cpu64bitalu)) and not defined(cpuhighleveltarget)}
tempreg64: tregister64;
{$endif not(defined(cpu64bitalu))}
{$endif not(defined(cpu64bitalu)) and not defined(cpuhighleveltarget)}
ovloc: tlocation;
begin
secondpass(left);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
location:=left.location;
{$if not(defined(cpu64bitalu))}
{$if not(defined(cpu64bitalu)) and not defined(cpuhighleveltarget)}
if is_64bitint(left.resultdef) then
begin
location:=left.location;
@ -785,7 +785,7 @@ implementation
cg64.a_op64_reg_reg_reg(current_asmdata.CurrAsmList,OP_SUB,def_cgsize(resultdef),tempreg64,location.register64,location.register64);
end
else
{$endif not(defined(cpu64bitalu))}
{$endif not(defined(cpu64bitalu)) and not defined(cpuhighleveltarget)}
begin
location.register:=hlcg.getintregister(current_asmdata.CurrAsmList,left.resultdef);