paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:06:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range check warning when doing a native ppc64 compile

Browse Source 
git-svn-id: trunk@19595 -
This commit is contained in:
Jonas Maebe 2011-11-04 22:49:04 +00:00
parent c86e36a53b
commit 84c23f6b42
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/powerpc64/cgcpu.pas
View File

@ -192,7 +192,7 @@ begin
two_N_minus_1 := aWord(1) shl (N-1); two_N_minus_1 := aWord(1) shl (N-1);
magic_add := false; magic_add := false;
nc := - 1 - (-d) mod d; nc := aWord(-1) - (-d) mod d;
p := N-1; { initialize p } p := N-1; { initialize p }
q1 := two_N_minus_1 div nc; { initialize q1 = 2p/nc } q1 := two_N_minus_1 div nc; { initialize q1 = 2p/nc }
r1 := two_N_minus_1 - q1*nc; { initialize r1 = rem(2p,nc) } r1 := two_N_minus_1 - q1*nc; { initialize r1 = rem(2p,nc) }