[BACK]Return to bin_ui.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / gmp / mpz

Diff for /OpenXM_contrib/gmp/mpz/Attic/bin_ui.c between version 1.1.1.1 and 1.1.1.2

version 1.1.1.1, 2000/09/09 14:12:47 version 1.1.1.2, 2003/08/25 16:06:32
Line 1 
Line 1 
 /* mpz_bin_uiui - compute n over k.  /* mpz_bin_uiui - compute n over k.
   
 Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.  Copyright 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
   
 This file is part of the GNU MP Library.  This file is part of the GNU MP Library.
   
Line 33  MA 02111-1307, USA. */
Line 33  MA 02111-1307, USA. */
   
   
 /* Enhancement: use mpn_divexact_1 when it exists */  /* Enhancement: use mpn_divexact_1 when it exists */
 #define DIVIDE()                                        \  #define DIVIDE()                                                \
   ASSERT (SIZ(r) > 0);                                  \    do {                                                          \
   ASSERT_NOCARRY (mpn_divrem_1 (PTR(r), (mp_size_t) 0,  \      ASSERT (SIZ(r) > 0);                                        \
                                 PTR(r), SIZ(r), kacc)); \      MPN_DIVREM_OR_DIVEXACT_1 (PTR(r), PTR(r), SIZ(r), kacc);    \
   SIZ(r) -= (PTR(r)[SIZ(r)-1] == 0);      SIZ(r) -= (PTR(r)[SIZ(r)-1] == 0);                          \
     } while (0)
   
 void  void
 #if __STDC__  
 mpz_bin_ui (mpz_ptr r, mpz_srcptr n, unsigned long int k)  mpz_bin_ui (mpz_ptr r, mpz_srcptr n, unsigned long int k)
 #else  
 mpz_bin_ui (r, n, k)  
      mpz_ptr r;  
      mpz_srcptr n;  
      unsigned long int k;  
 #endif  
 {  {
   mpz_t      ni;    mpz_t      ni;
   mp_limb_t  i;    mp_limb_t  i;
   mpz_t      nacc;    mpz_t      nacc;
   mp_limb_t  kacc;    mp_limb_t  kacc;
   mp_size_t  negate;    mp_size_t  negate;
   
   if (mpz_sgn (n) < 0)    if (mpz_sgn (n) < 0)
     {      {
       /* bin(n,k) = (-1)^k * bin(-n+k-1,k), and set ni = -n+k-1 - k = -n-1 */        /* bin(n,k) = (-1)^k * bin(-n+k-1,k), and set ni = -n+k-1 - k = -n-1 */
Line 116  mpz_bin_ui (r, n, k)
Line 110  mpz_bin_ui (r, n, k)
   
       mpz_add_ui (ni, ni, 1);        mpz_add_ui (ni, ni, 1);
       mpz_mul (nacc, nacc, ni);        mpz_mul (nacc, nacc, ni);
       umul_ppmm (k1, k0, kacc, i);        umul_ppmm (k1, k0, kacc, i << GMP_NAIL_BITS);
         k0 >>= GMP_NAIL_BITS;
       if (k1 != 0)        if (k1 != 0)
         {          {
           /* Accumulator overflow.  Perform bignum step.  */            /* Accumulator overflow.  Perform bignum step.  */
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>