Explorar el Código

* fixed range check warning when doing a native ppc64 compile

git-svn-id: trunk@19595 -
Jonas Maebe hace 13 años
padre
commit
84c23f6b42
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      compiler/powerpc64/cgcpu.pas

+ 1 - 1
compiler/powerpc64/cgcpu.pas

@@ -192,7 +192,7 @@ begin
   two_N_minus_1 := aWord(1) shl (N-1);
 
   magic_add := false;
-  nc := - 1 - (-d) mod d;
+  nc := aWord(-1) - (-d) mod d;
   p := N-1; { initialize p }
   q1 := two_N_minus_1 div nc; { initialize q1 = 2p/nc }
   r1 := two_N_minus_1 - q1*nc; { initialize r1 = rem(2p,nc) }