Explorar o código

* 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 %!s(int64=8) %!d(string=hai) anos
pai
achega
ac894831e4
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      compiler/sparcgen/ncpumat.pas

+ 2 - 2
compiler/sparcgen/ncpumat.pas

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