paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@5788 -
This commit is contained in:
Jonas Maebe 2007-01-02 18:32:59 +00:00
parent a23fa2e81e
commit e2193b1540
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/nppcmat.pas
View File

@ -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) }