Bladeren bron

* use the 64 bit path in tSparcmoddivnode.pass_generate_code for all 64 bit types (including currency) on sparc64

git-svn-id: trunk@36736 -
florian 8 jaren geleden
bovenliggende
commit
ac894831e4
1 gewijzigde bestanden met toevoegingen van 2 en 2 verwijderingen
  1. 2 2
      compiler/sparcgen/ncpumat.pas

+ 2 - 2
compiler/sparcgen/ncpumat.pas

@@ -80,7 +80,7 @@ implementation
 
 
     procedure tSparcmoddivnode.pass_generate_code;
     procedure tSparcmoddivnode.pass_generate_code;
       const
       const
-                    { 64 bit   signed  overflow }
+        { 64 bit   signed  overflow }
         divops: array[boolean, boolean, boolean] of tasmop =
         divops: array[boolean, boolean, boolean] of tasmop =
           (((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)),
           (((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)),
            ((A_UDIVX,A_NOP),(A_SDIVX,A_NOP))
            ((A_UDIVX,A_NOP),(A_SDIVX,A_NOP))
@@ -105,7 +105,7 @@ implementation
          numerator := left.location.register;
          numerator := left.location.register;
          resultreg := location.register;
          resultreg := location.register;
 
 
-         if is_64bitint(resultdef) then
+         if is_64bit(resultdef) then
            begin
            begin
              if (nodetype = divn) and
              if (nodetype = divn) and
                 (right.nodetype = ordconstn) and
                 (right.nodetype = ordconstn) and