1 /* mpz_and -- Logical and.
3 Copyright 1991, 1993, 1994, 1996, 1997, 2000, 2001, 2003, 2005, 2012 Free
4 Software Foundation, Inc.
6 This file is part of the GNU MP Library.
8 The GNU MP Library is free software; you can redistribute it and/or modify
9 it under the terms of either:
11 * the GNU Lesser General Public License as published by the Free
12 Software Foundation; either version 3 of the License, or (at your
13 option) any later version.
17 * the GNU General Public License as published by the Free Software
18 Foundation; either version 2 of the License, or (at your option) any
21 or both in parallel, as here.
23 The GNU MP Library is distributed in the hope that it will be useful, but
24 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
25 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
28 You should have received copies of the GNU General Public License and the
29 GNU Lesser General Public License along with the GNU MP Library. If not,
30 see https://www.gnu.org/licenses/. */
36 mpz_and (mpz_ptr res
, mpz_srcptr op1
, mpz_srcptr op2
)
38 mp_srcptr op1_ptr
, op2_ptr
;
39 mp_size_t op1_size
, op2_size
;
56 res_size
= MIN (op1_size
, op2_size
);
57 /* First loop finds the size of the result. */
58 for (i
= res_size
- 1; i
>= 0; i
--)
59 if ((op1_ptr
[i
] & op2_ptr
[i
]) != 0)
63 /* Handle allocation, now then we know exactly how much space is
64 needed for the result. */
65 res_ptr
= MPZ_REALLOC (res
, res_size
);
66 /* Don't re-read op1_ptr and op2_ptr. Since res_size <=
67 MIN(op1_size, op2_size), res is not changed when op1
68 is identical to res or op2 is identical to res. */
71 if (LIKELY (res_size
!= 0))
72 mpn_and_n (res_ptr
, op1_ptr
, op2_ptr
, res_size
);
75 else /* op2_size < 0 */
77 /* Fall through to the code at the end of the function. */
87 /* Both operands are negative, so will be the result.
88 -((-OP1) & (-OP2)) = -(~(OP1 - 1) & ~(OP2 - 1)) =
89 = ~(~(OP1 - 1) & ~(OP2 - 1)) + 1 =
90 = ((OP1 - 1) | (OP2 - 1)) + 1 */
92 /* It might seem as we could end up with an (invalid) result with
93 a leading zero-limb here when one of the operands is of the
94 type 1,,0,,..,,.0. But some analysis shows that we surely
95 would get carry into the zero-limb in this situation... */
100 if (op1_size
> op2_size
)
101 MPN_SRCPTR_SWAP (op1_ptr
, op1_size
, op2_ptr
, op2_size
);
103 TMP_ALLOC_LIMBS_2 (opx
, op1_size
, opy
, op2_size
);
104 mpn_sub_1 (opx
, op1_ptr
, op1_size
, (mp_limb_t
) 1);
107 mpn_sub_1 (opy
, op2_ptr
, op2_size
, (mp_limb_t
) 1);
110 res_ptr
= MPZ_REALLOC (res
, 1 + op2_size
);
111 /* Don't re-read OP1_PTR and OP2_PTR. They point to temporary
112 space--never to the space PTR(res) used to point to before
115 MPN_COPY (res_ptr
+ op1_size
, op2_ptr
+ op1_size
,
116 op2_size
- op1_size
);
117 mpn_ior_n (res_ptr
, op1_ptr
, op2_ptr
, op1_size
);
120 cy
= mpn_add_1 (res_ptr
, res_ptr
, res_size
, (mp_limb_t
) 1);
121 res_ptr
[res_size
] = cy
;
122 res_size
+= (cy
!= 0);
124 SIZ(res
) = -res_size
;
130 /* We should compute -OP1 & OP2. Swap OP1 and OP2 and fall
131 through to the code that handles OP1 & -OP2. */
132 MPN_SRCPTR_SWAP (op1_ptr
, op1_size
, op2_ptr
, op2_size
);
142 /* OP2 must be negated as with infinite precision.
144 Scan from the low end for a non-zero limb. The first non-zero
145 limb is simply negated (two's complement). Any subsequent
146 limbs are one's complemented. Of course, we don't need to
147 handle more limbs than there are limbs in the other, positive
148 operand as the result for those limbs is going to become zero
151 /* Scan for the least significant non-zero OP2 limb, and zero the
152 result meanwhile for those limb positions. (We will surely
153 find a non-zero limb, so we can write the loop with one
154 termination condition only.) */
155 for (i
= 0; op2_ptr
[i
] == 0; i
++)
159 op2_size
= -op2_size
;
161 if (op1_size
<= op2_size
)
163 /* The ones-extended OP2 is >= than the zero-extended OP1.
164 RES_SIZE <= OP1_SIZE. Find the exact size. */
165 for (i
= op1_size
- 1; i
> op2_lim
; i
--)
166 if ((op1_ptr
[i
] & ~op2_ptr
[i
]) != 0)
169 for (i
= res_size
- 1; i
> op2_lim
; i
--)
170 res_ptr
[i
] = op1_ptr
[i
] & ~op2_ptr
[i
];
171 res_ptr
[op2_lim
] = op1_ptr
[op2_lim
] & -op2_ptr
[op2_lim
];
172 /* Yes, this *can* happen! */
173 MPN_NORMALIZE (res_ptr
, res_size
);
177 /* The ones-extended OP2 is < than the zero-extended OP1.
178 RES_SIZE == OP1_SIZE, since OP1 is normalized. */
180 MPN_COPY (res_ptr
+ op2_size
, op1_ptr
+ op2_size
, op1_size
- op2_size
);
181 for (i
= op2_size
- 1; i
> op2_lim
; i
--)
182 res_ptr
[i
] = op1_ptr
[i
] & ~op2_ptr
[i
];
183 res_ptr
[op2_lim
] = op1_ptr
[op2_lim
] & -op2_ptr
[op2_lim
];
189 /* OP1 is positive and zero-extended,
190 OP2 is negative and ones-extended.
191 The result will be positive.
192 OP1 & -OP2 = OP1 & ~(OP2 - 1). */
196 op2_size
= -op2_size
;
197 opx
= TMP_ALLOC_LIMBS (op2_size
);
198 mpn_sub_1 (opx
, op2_ptr
, op2_size
, (mp_limb_t
) 1);
201 if (op1_size
> op2_size
)
203 /* The result has the same size as OP1, since OP1 is normalized
204 and longer than the ones-extended OP2. */
207 /* Handle allocation, now then we know exactly how much space is
208 needed for the result. */
209 res_ptr
= MPZ_REALLOC (res
, res_size
);
210 /* Don't re-read OP1_PTR or OP2_PTR. Since res_size = op1_size,
211 op1 is not changed if it is identical to res.
212 OP2_PTR points to temporary space. */
214 MPN_COPY (res_ptr
+ op2_size
, op1_ptr
+ op2_size
, res_size
- op2_size
);
215 mpn_andn_n (res_ptr
, op1_ptr
, op2_ptr
, op2_size
);
221 /* Find out the exact result size. Ignore the high limbs of OP2,
222 OP1 is zero-extended and would make the result zero. */
223 for (i
= op1_size
- 1; i
>= 0; i
--)
224 if ((op1_ptr
[i
] & ~op2_ptr
[i
]) != 0)
228 /* Handle allocation, now then we know exactly how much space is
229 needed for the result. */
230 res_ptr
= MPZ_REALLOC (res
, res_size
);
231 /* Don't re-read OP1_PTR. Since res_size <= op1_size,
232 op1 is not changed if it is identical to res.
233 Don't re-read OP2_PTR. It points to temporary space--never
234 to the space PTR(res) used to point to before reallocation. */
236 if (LIKELY (res_size
!= 0))
237 mpn_andn_n (res_ptr
, op1_ptr
, op2_ptr
, res_size
);