소스 검색

* fixed mixing of longint/dword to avoid 64 bit conversion

git-svn-id: trunk@5788 -
Jonas Maebe 18 년 전
부모
커밋
e2193b1540
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/powerpc/nppcmat.pas

+ 1 - 1
compiler/powerpc/nppcmat.pas

@@ -80,7 +80,7 @@ begin
     assert(d > 0);
     
     magic_add := false;
-    nc := - 1 - (-d) mod d;
+    nc := dword(- 1) - dword(-d) mod d;
     p := 31; { initialize p }
     q1 := $80000000 div nc; { initialize q1 = 2p/nc }
     r1 := $80000000 - q1*nc; { initialize r1 = rem(2p,nc) }