Browse Source

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

florian 1 year ago
parent
commit
80750f7591
1 changed files with 4 additions and 4 deletions
  1. 4 4
      compiler/ncginl.pas

+ 4 - 4
compiler/ncginl.pas

@@ -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);