paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 17:31:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix fullcycle after -Sew for the compiler was introduced

Browse Source 
git-svn-id: trunk@19757 -
This commit is contained in:
florian 2011-12-04 21:17:40 +00:00
parent 14e6dcf816
commit aa529b0705
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/powerpc64/cgcpu.pas
View File

@ -192,7 +192,10 @@ 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;
{$push}
{$warnings off }
nc := aWord(-1) - (-d) mod d; nc := aWord(-1) - (-d) mod d;
{$pop}
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) }