Bladeren bron

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

git-svn-id: trunk@5788 -
Jonas Maebe 18 jaren geleden
bovenliggende
commit
e2193b1540
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  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) }