浏览代码

* 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 }