crypto/bn/bn_mul.c

431     int tna = n + dna, tnb = n + dnb;
463     c1 = bn_cmp_part_words(a, &(a[n]), tna, n - tna);
468         bn_sub_part_words(t, &(a[n]), a, tna, tna - n); /* - */
475         bn_sub_part_words(t, &(a[n]), a, tna, tna - n); /* - */
485         bn_sub_part_words(t, a, &(a[n]), tna, n - tna); /* + */
493         bn_sub_part_words(t, a, &(a[n]), tna, n - tna);
578                            int tna, int tnb, BN_ULONG *t)
586             n, tna, n, tnb);
589         bn_mul_normal(r, a, n + tna, b, n + tnb);
594     c1 = bn_cmp_part_words(a, &(a[n]), tna, n - tna);
599         bn_sub_part_words(t, &(a[n]), a, tna, tna - n); /* - */
605         bn_sub_part_words(t, &(a[n]), a, tna, tna - n); /* - */
614         bn_sub_part_words(t, a, &(a[n]), tna, n - tna); /* + */
621         bn_sub_part_words(t, a, &(a[n]), tna, n - tna);
640         bn_mul_normal(&(r[n2]), &(a[n]), tna, &(b[n]), tnb);
641         memset(&(r[n2 + tna + tnb]), 0, sizeof(BN_ULONG) * (n2 - tna - tnb));
650         if (tna > tnb)
651             j = tna - i;
656                              i, tna - i, tnb - i, p);
660                                   i, tna - i, tnb - i, p);
661             memset(&(r[n2 + tna + tnb]), 0,
662                    sizeof(BN_ULONG) * (n2 - tna - tnb));
666             if (tna < BN_MUL_RECURSIVE_SIZE_NORMAL
668                 bn_mul_normal(&(r[n2]), &(a[n]), tna, &(b[n]), tnb);
674                      * difference between tna and tnb is 1 or 0
676                     if (i < tna || i < tnb) {
679                                               i, tna - i, tnb - i, p);
681                     } else if (i == tna || i == tnb) {
684                                          i, tna - i, tnb - i, p);