فهرست منبع

* 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 11 سال پیش
والد
کامیت
15bf176bc0
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  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 }