patches/gmp/4.3.1/100-multiplicity-that-does-not-fit-an-int.patch
author "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
Sun Jul 17 17:54:21 2011 +0200 (2011-07-17)
changeset 2888 dd71df95903a
permissions -rw-r--r--
cc/gcc: pass the companion libs prefix to cc_core

In case of canadian-cross, the companion libraries are not the same for
the core cc (they run on 'build') as they are for the final cc (they run
on 'host').

Prepare for this differentiation (coming later), while retaining the
current behavior (to use the same compblibs).

Signed-off-by: "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
     1 diff --git a/mpz/remove.c b/mpz/remove.c
     2 --- a/mpz/remove.c
     3 +++ b/mpz/remove.c
     4 @@ -23,7 +23,7 @@
     5  unsigned long int
     6  mpz_remove (mpz_ptr dest, mpz_srcptr src, mpz_srcptr f)
     7  {
     8 -  mpz_t fpow[40];		/* inexhaustible...until year 2020 or so */
     9 +  mpz_t fpow[GMP_LIMB_BITS];		/* Really MP_SIZE_T_BITS */
    10    mpz_t x, rem;
    11    unsigned long int pwr;
    12    int p;
    13 @@ -69,7 +69,7 @@
    14        mpz_set (dest, x);
    15      }
    16  
    17 -  pwr = (1 << p) - 1;
    18 +  pwr = (1L << p) - 1;
    19  
    20    mpz_clear (fpow[p]);
    21  
    22 diff --git a/mpz/remove.c b/mpz/remove.c
    23 --- a/mpz/remove.c
    24 +++ b/mpz/remove.c
    25 @@ -80,7 +80,7 @@
    26        mpz_tdiv_qr (x, rem, dest, fpow[p]);
    27        if (SIZ (rem) == 0)
    28  	{
    29 -	  pwr += 1 << p;
    30 +	  pwr += 1L << p;
    31  	  mpz_set (dest, x);
    32  	}
    33        mpz_clear (fpow[p]);