combit.c
上传用户:qaz666999
上传日期:2022-08-06
资源大小:2570k
文件大小:2k
源码类别:

数学计算

开发平台:

Unix_Linux

  1. /* mpz_combit -- complement a specified bit.
  2. Copyright 2002, 2003 Free Software Foundation, Inc.
  3. This file is part of the GNU MP Library.
  4. The GNU MP Library is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU Lesser General Public License as published by
  6. the Free Software Foundation; either version 3 of the License, or (at your
  7. option) any later version.
  8. The GNU MP Library is distributed in the hope that it will be useful, but
  9. WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  10. or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  11. License for more details.
  12. You should have received a copy of the GNU Lesser General Public License
  13. along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
  14. #include "gmp.h"
  15. #include "gmp-impl.h"
  16. void
  17. mpz_combit (mpz_ptr d, mp_bitcnt_t bit_index)
  18. {
  19.   mp_size_t dsize = ABSIZ(d);
  20.   mp_ptr dp = LIMBS(d);
  21.   mp_size_t limb_index = bit_index / GMP_NUMB_BITS;
  22.   mp_limb_t bit = ((mp_limb_t) 1 << (bit_index % GMP_NUMB_BITS));
  23.   if (limb_index >= dsize)
  24.     {
  25.       MPZ_REALLOC(d, limb_index + 1);
  26.       dp = LIMBS(d);
  27.       MPN_ZERO(dp + dsize, limb_index + 1 - dsize);
  28.       dsize = limb_index + 1;
  29.     }
  30.   if (SIZ(d) >= 0)
  31.     {
  32.       dp[limb_index] ^= bit;
  33.       MPN_NORMALIZE (dp, dsize);
  34.       SIZ(d) = dsize;
  35.     }
  36.   else
  37.     {
  38.       mp_limb_t x = -dp[limb_index];
  39.       mp_size_t i;
  40.       /* non-zero limb below us means ones-complement */
  41.       for (i = limb_index-1; i >= 0; i--)
  42. if (dp[i] != 0)
  43.   {
  44.     x--;  /* change twos comp to ones comp */
  45.     break;
  46.   }
  47.       if (x & bit)
  48. {
  49.   mp_limb_t  c;
  50.   /* Clearing the bit increases the magitude. We might need a carry. */
  51.   MPZ_REALLOC(d, dsize + 1);
  52.   dp = LIMBS(d);
  53.   __GMPN_ADD_1 (c, dp+limb_index, dp+limb_index,
  54. dsize - limb_index, bit);
  55.   dp[dsize] = c;
  56.   dsize += c;
  57. }
  58.       else
  59. /* Setting the bit decreases the magnitude */
  60. mpn_sub_1(dp+limb_index, dp+limb_index, dsize + limb_index, bit);
  61.       MPN_NORMALIZE (dp, dsize);
  62.       SIZ(d) = -dsize;
  63.     }
  64. }