* fix fullcycle after -Sew for the compiler was introduced

git-svn-id: trunk@19757 -
This commit is contained in:
florian 2011-12-04 21:17:40 +00:00
parent 14e6dcf816
commit aa529b0705

View File

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