1 /* mpz_tdiv_r_ui(rem, dividend, divisor_limb)
2 -- Set REM to DIVDEND mod DIVISOR_LIMB.
4 Copyright 1991, 1993, 1994, 1996, 1998, 2001, 2002, 2004, 2005 Free Software
7 This file is part of the GNU MP Library.
9 The GNU MP Library is free software; you can redistribute it and/or modify
10 it under the terms of the GNU Lesser General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or (at your
12 option) any later version.
14 The GNU MP Library is distributed in the hope that it will be useful, but
15 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
16 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
17 License for more details.
19 You should have received a copy of the GNU Lesser General Public License
20 along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. */
26 mpz_tdiv_r_ui (mpz_ptr rem
, mpz_srcptr dividend
, unsigned long int divisor
)
44 #if BITS_PER_ULONG > GMP_NUMB_BITS /* avoid warnings about shift amount */
45 if (divisor
> GMP_NUMB_MAX
)
52 if (nn
== 1) /* tdiv_qr requirements; tested above for 0 */
55 SIZ(rem
) = ns
>= 0 ? 1 : -1;
64 dp
[0] = divisor
& GMP_NUMB_MASK
;
65 dp
[1] = divisor
>> GMP_NUMB_BITS
;
66 qp
= TMP_ALLOC_LIMBS (nn
- 2 + 1);
67 mpn_tdiv_qr (qp
, rp
, (mp_size_t
) 0, np
, nn
, dp
, (mp_size_t
) 2);
69 rl
= rp
[0] + (rp
[1] << GMP_NUMB_BITS
);
70 rn
= 2 - (rp
[1] == 0); rn
-= (rp
[rn
- 1] == 0);
71 SIZ(rem
) = ns
>= 0 ? rn
: -rn
;
76 rl
= mpn_mod_1 (np
, nn
, (mp_limb_t
) divisor
);
81 /* Store the single-limb remainder. We don't check if there's space
82 for just one limb, since no function ever makes zero space. */
83 SIZ(rem
) = ns
>= 0 ? 1 : -1;