mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 20:49:09 +02:00
* fix fullcycle after -Sew for the compiler was introduced
git-svn-id: trunk@19757 -
This commit is contained in:
parent
14e6dcf816
commit
aa529b0705
@ -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) }
|
||||
|
Loading…
Reference in New Issue
Block a user