Răsfoiți Sursa

* fixed range check warning when doing a native ppc64 compile

git-svn-id: trunk@19595 -
Jonas Maebe 13 ani în urmă
părinte
comite
84c23f6b42
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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);
   two_N_minus_1 := aWord(1) shl (N-1);
 
 
   magic_add := false;
   magic_add := false;
-  nc := - 1 - (-d) mod d;
+  nc := aWord(-1) - (-d) mod d;
   p := N-1; { initialize p }
   p := N-1; { initialize p }
   q1 := two_N_minus_1 div nc; { initialize q1 = 2p/nc }
   q1 := two_N_minus_1 div nc; { initialize q1 = 2p/nc }
   r1 := two_N_minus_1 - q1*nc; { initialize r1 = rem(2p,nc) }
   r1 := two_N_minus_1 - q1*nc; { initialize r1 = rem(2p,nc) }