dt/int/sc_nbexterns.cc

66 add_on_help(small_type &us, int /* unb */, int und, sc_digit *ud,
72         if (und >= vnd)
73             vec_add_on(und, ud, vnd, vd);
75             vec_add_on2(und, ud, vnd, vd);
78         // vec_cmp expects that und is the number of non-zero digits in ud.
79         int new_und = vec_skip_leading_zeros(und, ud);
84             vec_zero(und, ud);
89             vec_sub_on(und, ud, vnd, vd);
92             vec_sub_on2(und, ud, vnd, vd);
121 mul_on_help_signed(small_type &us, int unb, int und, sc_digit *ud,
127         int old_und = und;
129         und = vec_skip_leading_zeros(und, ud);
140         if ((und == 1) && (ud0 == 1)) {
145         if ((und == 1) && (vnd == 1) &&
153         int nd = und + vnd;
163         if ((und == 1) && (ud0 < HALF_DIGIT_RADIX))
166             vec_mul_small(und, ud, vd0, d);
167         else if (vnd < und)
168             vec_mul(und, ud, vnd, vd, d);
170             vec_mul(vnd, vd, und, ud, d);
184 mul_on_help_unsigned(small_type &us, int unb, int und, sc_digit *ud,
190         int old_und = und;
192         und = vec_skip_leading_zeros(und, ud);
203         if ((und == 1) && (ud0 == 1)) {
208         if ((und == 1) && (vnd == 1) &&
216         int nd = und + vnd;
226         if ((und == 1) && (ud0 < HALF_DIGIT_RADIX))
229             vec_mul_small(und, ud, vd0, d);
230         else if (vnd < und)
231             vec_mul(und, ud, vnd, vd, d);
233             vec_mul(vnd, vd, und, ud, d);
251 div_on_help_signed(small_type &us, int unb, int und, sc_digit *ud,
257         int old_und = und;
259         und = vec_skip_leading_zeros(und, ud);
262         int cmp_res = vec_cmp(und, ud, vnd, vd);
278         int nd = sc_max(und, vnd) + 1;
291         else if ((vnd == 1) && (und == 1))
294             vec_div_small(und, ud, vd0, d);
296             vec_div_large(und, ud, vnd, vd, d);
310 div_on_help_unsigned(small_type &us, int unb, int und, sc_digit *ud,
316         int old_und = und;
318         und = vec_skip_leading_zeros(und, ud);
321         int cmp_res = vec_cmp(und, ud, vnd, vd);
337         int nd = sc_max(und, vnd) + 1;
350         else if ((vnd == 1) && (und == 1))
353             vec_div_small(und, ud, vd0, d);
355             vec_div_large(und, ud, vnd, vd, d);
373 mod_on_help_signed(small_type &us, int unb, int und, sc_digit *ud,
378         int old_und = und;
380         und = vec_skip_leading_zeros(und, ud);
383         int cmp_res = vec_cmp(und, ud, vnd, vd);
406         int nd = sc_max(und, vnd) + 1;
416         if ((vnd == 1) && (und == 1))
419             d[0] = vec_rem_small(und, ud, vd0);
421             vec_rem_large(und, ud, vnd, vd, d);
439 mod_on_help_unsigned(small_type &us, int unb, int und, sc_digit *ud,
444         int old_und = und;
446         und = vec_skip_leading_zeros(und, ud);
449         int cmp_res = vec_cmp(und, ud, vnd, vd);
473         int nd = sc_max(und, vnd) + 1;
483         if ((vnd == 1) && (und == 1))
486             d[0] = vec_rem_small(und, ud, vd0);
488             vec_rem_large(und, ud, vnd, vd, d);
511 and_on_help(small_type us, int /* unb */, int und, sc_digit *ud,
516     int xnd = und;
587 or_on_help(small_type us, int /* unb */, int und, sc_digit *ud,
592     int xnd = und;
665 xor_on_help(small_type us, int /* unb */, int und, sc_digit *ud,
670     int xnd = und;