Explorar el Código

* Fixed building on x86_64 with 2.6.4, which generates unsigned division with sign-extended left for "(-qword) mod qword". Mantis #26336.

git-svn-id: trunk@27948 -
sergei hace 11 años
padre
commit
15bf176bc0
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      compiler/cgutils.pas

+ 1 - 1
compiler/cgutils.pas

@@ -389,7 +389,7 @@ uses
 {$push}
 {$warnings off }
         mask:=aWord(not 0) shr (64-N);
-        nc:=(mask-(-d) mod d);
+        nc:=(mask-(-d) mod aInt(d));
 {$pop}
         p:=N-1;                       { initialize p }
         q1:=two_N_minus_1 div nc;     { initialize q1 = 2**p/nc }