Lines Matching defs:bl
48 mp_limb_t ah, al, bh, bl;
53 bl = bp[0];
56 ASSERT (bl & 1);
58 bl = ((bh << (GMP_NUMB_BITS - 1)) & GMP_NUMB_MASK) | (bl >> 1);
61 if ( (bh | bl) == 0)
71 bit ^= GMP_NUMB_BITS & (bl ^ (bl >> 1));
74 bit ^= c & (bl ^ (bl >> 1));
92 sub_ddmmss (th, tl, ah, al, bh, bl);
99 bit ^= (bgta & al & bl);
102 add_ssaaaa (bh, bl, bh, bl, th & bgta, tl & bgta);
104 if ( (bh | bl) == 0)
117 bit ^= GMP_NUMB_BITS & (bl ^ (bl >> 1));
121 bit ^= c & (bl ^ (bl >> 1));
135 ASSERT (bl > 0);
137 while ( (al | bl) & GMP_LIMB_HIGHBIT)
140 mp_limb_t t = al - bl;
141 mp_limb_t bgta = - (bl > al);
147 bit ^= (bgta & al & bl);
150 bl += (bgta & t);
160 bit ^= c & (bl ^ (bl >> 1));
169 return mpn_jacobi_base (2*al+1, 2*bl+1, bit << 1);
175 mp_limb_t ah, al, bh, bl;
180 bl = bp[0];
183 ASSERT (bl & 1);
188 if (bh == 0 && bl == 1)
199 bit ^= ((GMP_NUMB_BITS + c) << 1) & (bl ^ (bl >> 1));
201 al = bl;
202 bl = ah >> c;
204 if (bl == 1)
210 bit ^= al & bl;
220 bit ^= (c << 1) & (bl ^ (bl >> 1));
226 bit ^= al & bl;
227 MP_LIMB_T_SWAP (al, bl);
239 sub_ddmmss (ah, al, ah, al, bh, bl);
243 bit ^= ((GMP_NUMB_BITS + c) << 1) & (bl ^ (bl >> 1));
245 al = bl;
246 bl = ah >> c;
249 bit ^= al & bl;
253 bit ^= (c << 1) & (bl ^ (bl >> 1));
262 bit ^= al & bl;
263 MP_LIMB_T_SWAP (al, bl);
268 bit ^= al & bl;
273 sub_ddmmss (bh, bl, bh, bl, ah, al);
274 if (bl == 0)
279 bl = bh >> c;
280 bit ^= al & bl;
283 count_trailing_zeros (c, bl);
285 bl = ((bh << (GMP_NUMB_BITS - c)) & GMP_NUMB_MASK) | (bl >> c);
288 bit ^= al & bl;
294 if (al < bl)
296 MP_LIMB_T_SWAP (al, bl);
297 bit ^= al & bl;
299 al -= bl;
304 bit ^= (c << 1) & (bl ^ (bl >> 1));
310 MP_LIMB_T_SWAP (al, bl);
311 bit ^= al & bl;
318 ASSERT (bl & 1);
320 if (bl == 1)
326 ah -= (al < bl);
327 al -= bl;
333 bit ^= ((GMP_NUMB_BITS + c) << 1) & (bl ^ (bl >> 1));
341 bit ^= (c << 1) & (bl ^ (bl >> 1));
344 ASSERT (bl & 1);
345 ASSERT (bl > 1);
347 return mpn_jacobi_base (al, bl, bit);
Indexes created Sat Apr 18 00:22:28 UTC 2026