ui_sub.c revision 1.1.1.2
1 1.1 mrg /* mpz_ui_sub -- Subtract an unsigned one-word integer and an mpz_t. 2 1.1 mrg 3 1.1 mrg Copyright 2002, 2004 Free Software Foundation, Inc. 4 1.1 mrg 5 1.1 mrg This file is part of the GNU MP Library. 6 1.1 mrg 7 1.1 mrg The GNU MP Library is free software; you can redistribute it and/or modify 8 1.1.1.2 mrg it under the terms of either: 9 1.1.1.2 mrg 10 1.1.1.2 mrg * the GNU Lesser General Public License as published by the Free 11 1.1.1.2 mrg Software Foundation; either version 3 of the License, or (at your 12 1.1.1.2 mrg option) any later version. 13 1.1.1.2 mrg 14 1.1.1.2 mrg or 15 1.1.1.2 mrg 16 1.1.1.2 mrg * the GNU General Public License as published by the Free Software 17 1.1.1.2 mrg Foundation; either version 2 of the License, or (at your option) any 18 1.1.1.2 mrg later version. 19 1.1.1.2 mrg 20 1.1.1.2 mrg or both in parallel, as here. 21 1.1 mrg 22 1.1 mrg The GNU MP Library is distributed in the hope that it will be useful, but 23 1.1 mrg WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 24 1.1.1.2 mrg or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 25 1.1.1.2 mrg for more details. 26 1.1 mrg 27 1.1.1.2 mrg You should have received copies of the GNU General Public License and the 28 1.1.1.2 mrg GNU Lesser General Public License along with the GNU MP Library. If not, 29 1.1.1.2 mrg see https://www.gnu.org/licenses/. */ 30 1.1 mrg 31 1.1 mrg #include "gmp.h" 32 1.1 mrg #include "gmp-impl.h" 33 1.1 mrg 34 1.1 mrg void 35 1.1 mrg mpz_ui_sub (mpz_ptr w, unsigned long int uval, mpz_srcptr v) 36 1.1 mrg { 37 1.1 mrg mp_ptr vp, wp; 38 1.1 mrg mp_size_t vn, wn; 39 1.1 mrg mp_limb_t cy; 40 1.1 mrg 41 1.1 mrg #if BITS_PER_ULONG > GMP_NUMB_BITS /* avoid warnings about shift amount */ 42 1.1 mrg if (uval > GMP_NUMB_MAX) 43 1.1 mrg { 44 1.1 mrg mpz_t u; 45 1.1 mrg mp_limb_t ul[2]; 46 1.1 mrg PTR(u) = ul; 47 1.1 mrg ul[0] = uval & GMP_NUMB_MASK; 48 1.1 mrg ul[1] = uval >> GMP_NUMB_BITS; 49 1.1 mrg SIZ(u) = 2; 50 1.1 mrg mpz_sub (w, u, v); 51 1.1 mrg return; 52 1.1 mrg } 53 1.1 mrg #endif 54 1.1 mrg 55 1.1 mrg vp = PTR(v); 56 1.1 mrg vn = SIZ(v); 57 1.1 mrg 58 1.1 mrg wp = PTR(w); 59 1.1 mrg 60 1.1 mrg if (vn > 1) 61 1.1 mrg { 62 1.1 mrg wp = MPZ_REALLOC (w, vn); 63 1.1 mrg vp = PTR(v); 64 1.1 mrg mpn_sub_1 (wp, vp, vn, (mp_limb_t) uval); 65 1.1 mrg wn = -(vn - (wp[vn - 1] == 0)); 66 1.1 mrg } 67 1.1 mrg else if (vn == 1) 68 1.1 mrg { 69 1.1 mrg if (uval >= vp[0]) 70 1.1 mrg { 71 1.1 mrg wp[0] = uval - vp[0]; 72 1.1 mrg wn = wp[0] != 0; 73 1.1 mrg } 74 1.1 mrg else 75 1.1 mrg { 76 1.1 mrg wp[0] = vp[0] - uval; 77 1.1 mrg wn = -1; 78 1.1 mrg } 79 1.1 mrg } 80 1.1 mrg else if (vn == 0) 81 1.1 mrg { 82 1.1 mrg wp[0] = uval; 83 1.1 mrg wn = uval != 0; 84 1.1 mrg } 85 1.1 mrg else /* (vn < 0) */ 86 1.1 mrg { 87 1.1 mrg vn = -vn; 88 1.1 mrg wp = MPZ_REALLOC (w, vn + 1); 89 1.1 mrg vp = PTR(v); 90 1.1 mrg cy = mpn_add_1 (wp, vp, vn, (mp_limb_t) uval); 91 1.1 mrg wp[vn] = cy; 92 1.1 mrg wn = vn + (cy != 0); 93 1.1 mrg } 94 1.1 mrg 95 1.1 mrg SIZ(w) = wn; 96 1.1 mrg } 97
Indexes created Sat Aug 01 00:24:56 UTC 2026